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ABSTRACT 

This  thesis  examines  th€  feasibility  of  implementing  an 
existinq  manual  system,  the  Individual  Training  Record 
Management  System,  en  a  microcomputer.  To  demonstrate 
conceptual  feasibility,  a  prototype  is  designed  and  imple- 
mented utilizing  a  commercially  available  database  manage- 
ment system  (DBMS)  .  The  prototype  is  not  intended  to  be  a 
fully  operational  system.  Rather  it  provides  an  opportunity 
to  demonstrate  functions  that  could  be  fully  implemented  in 
similarly  designed  sjstems  utilizing  the  basic  criteria  of 
simplicity,  utility  ard  low  cost. 


TABLE  CF  CONTENTS 


I.  INTRODUCTION 11 

A.       GENERAL    DESCRIPTION 11 

E.       EACKGROUNE 11 

C.  OBJECTIVES 12 

D.  ENVIRONMENT 13 

E.  SYSTEM    CHARACTERISTICS    13 

1.  User    friendly 13 

2.  Reliatility 13 

3.  Cost 14 

4.  Expandability  of  data  base 14 

5.  Expandability  of  functions  14 

6.  Speed  cf  operation 14 

F.  SUMMARY 14 

1.  Scope  cf  Development 14 

2.  Concept 15 

II.  SYSTEM    DESCRIPTION    AND    REQUIREMENTS       16 

3.       INPUT    INFORMATION       16 

E.       SYSTEM    SPECIFICATIONS     (FUNCTIONAL) 16 

1.      Training   Data 16 

2-      Data    Ease   Maintenance 17 

3.  Report  Formats 17 

4.  Data    Retrieval 17 

5.  Standard    Reports    18 

6.  Decision   Support   Subsystem    20 

7.  Ncnstacdard    Reports      20 

8.  System  Controls 20 

9.  Output   Mode 21 

C.       REQUIRED    SPECIFICATIONS     (NON-FUNCTIONAL)     ...  21 


E.       EATA    STRUCTURE   DEFINITIONS     (DATA 

EICTIONARY)         22 

1.  Int.ro  duct  ion 22 

2.  Data    Ease   Management    System 22 

III.  METHODOLOGY    ABE    DESIGN 24 

A.  METHODOLOGY 24 

1.      Software 24 

B.  SOFTWARE    EESIGN 26 

1.  Structured  Programming    26 

2.  Tcp~dc*n    Design 26 

C.  EATA    FLOW    EIAGRAMS 27 

D.  SYSTEM    HIERARCHY     32 

E.  MODULE    DESCRIPTIONS 33 

1.  ITRMS    Master    Control   Module      33 

2.  Access   Module 35 

3.  Command   Determiner   Module      36 

4.  Nonstandard    Report   Generator   Module      ...  37 

5.  Standard   Report   Generator    Module    38 

6.  Maintenance    Module    39 

IV.  IMPLEMENTATION 40 

A.       CCNSTSAINTS 40 

1.  dEASE    II 40 

2.  Hardware 40 

3.  Environmental 41 

E.       GENERAL 42 

1.  ITRMS  Master  Control  Module   42 

2.  Access  Module 43 

3.  Command  Determiner  Module   43 

4.  Nonstandard  Report  Generator  Module   ...  44 

5.  Standard  Report  Generator  Module  46 

6.  Maintenance  Module  56 


V.  CONCLUSION 64 

A.       GENERAL 64 

E.       SYSTEM    SPECIFICATIONS     (FUNCTIONAL)     65 

1.  Stcrace   Limitations      65 

2.  Retrieval   Limitations 65 

C.  SYSTEM    SPECIFICATIONS     (NON-FUNCTIONAL)      ....  65 

1.  Training 65 

2.  Error   Checking 66 

3.  Table    Mapping 66 

D.  SUBSEQUENT    SYSTEM    DEVELOPMENT       66 

E.  SUMMARY 67 

APPENDIX    A:       DATA    ELEMENT    DICTIONARY       68 

A.       FIELD 68 

E.       NAME 68 

C.       TYPE 6  8 

E.       WIDTH 69 

E.       DESCRIPTION 69 

E.       EATA    EASE    EILSS 69 

1.  Pers     (Personnel) 69 

2.  EST     (Essential   Subjects   Testing) 70 

3.  QUAL    Kualif  ications)       70 

4.  INFOMISC    (Information    Miscellaneous)     ...  71 

5.  SECURITY    (Access   Information) 71 

6.  COMMENTS    (Non-f ormatted   Information)     ...  71 

APPENDIX    E:       DECISION    SUPPORT    SYSTEM     (DSS) 

DESCRIPTION 73 

A.       EACKGROUNE 73 

E.       PURPOSE 73 

C.   FUNCTIONAI  DESCRIPTION  73 

E.   CSER'S  VIEW 75 

1.  Summary  Information   75 

2.  Support  Depth 76 


3.  Interdependence 76 

4.  Restrictions 76 

E.       EUILDER'S    VIEW 76 

1.  Dialogue 76 

2.  Modelling 76 

F-       CONTENTS    CE    KNOWLEDGE    BASE 77 

APPENEIX    C:       ITRS    MASTER    CONTROL    MODULE    LISTING    78 

A.       MASTER    ROCIINE 78 

E.       PAUSE    ROUTINE 30 

APPENDIX    D:       ACCESS    CCDULE    LISTING       81 

A.       ACCESS    ROCTINE 81 

APPENDIX   E:      COMMAND    DETERMINER    MODULE    LISTING       83 

A.       COMMAND    DETERMINER    ROUTINE    33 

E.       HELP2    ROUTINE 84 

APPENEIX    F:       NONSTANEARD    COMMAND    GENERATOR    MOUDLE 

LISTING 86 

A.   NONSTANDARD  REPORT  ROUTINE  86 

E.   NONSTANDARD  HELP  ROUTINE 99 

C.   SELECT  ATTRIBUTE  ROUTINE  100 

E.   SELECT  DESCRIPTOR  ROUTINE   104 

APPENEIX  G:   STANDARE  COMMAND  GENERATOR  MODULE 

LISTINGS 109 

A.   STANDARD  REPORT  ROUTINE   109 

E.   SELECT  UNIT  ROUTINE 111 

C.  UNIT  ROSTER  ROUTINE 113 

D.  TRAINING  STATISTICS  ROUTINE   115 

E.  TRAINING  CCUNT  ROUTINE  126 

E.   QUALIFICATION  COUNT  ROUTINE   128 

G.   TRAINING  RCSTER  ROUTINE   129 

H.   TRAINING  ROSTER  FORMAT  ROUTINE  132 

I.   MARKSMANSHIP  STATUS  ROUTINE   133 


J.       CONVERT    UNIT    ROUTINE 135 

K.       QUOTA    STUEY    ROUTINE       136 

L.       CUOTA    SCRATCH    PA  E    ECUTINE 140 

M.       MARKSMANSHIP    ROSIER    ROUTINE       155 

N.       BOS    STATUS    ROUTINE 157 

0.  KOS    ROSTER    ROUTINE 159 

P.       PERSONNEL    EATA    RCUTINE 161 

C.       PERSONNEL    EATA    FORMAT    ROUTINE       164 

R.       EST    STATUS    ROUTINE 165 

S.       EST    COUNT    ROUTINE 170 

1.  EST    RCSTEB    ROUTINE 171 

U.       EST     REPORT    FORMAT    ROUTINE 174 

V.       SWIM    QUALIFICATION    ECUTINE 175 

W.       SWIM    REPORT    ROUTINE 178 

X.       HELP    ROUTINE 179 

APPENEIX    H:       MAINTENANCE    MODULE    LISTING    186 

A.  MAINTAIN    CCNTROL    ROUTINE 186 

E.       VIEW    CONTECL    ROUTINE 188 

C.       ITR    SCREEN    FORMAT    ECUTINE 190 

E.       SCREEN    DATA    RETR IEVALROUTINE     192 

E.       COMMENT    RETRIEVAL    RCUTINE       194 

E.       UPDATE    CONIFOL   RCUTINE    195 

G.       EATA    UPDATE    ROUTINE 197 

B.  ITR    CREATICN    CONTROL    ROUTINE    206 

I.       ITR    DATA    INITIALIZATION    ROUTINE 207 

J.       EATA    ERROB    CHECKING    ROUTINE       211 

K.       CALCULATION    ROUTINE       214 

L.       COMMENT    UPEATE    ROUTINE    219 

M.       COMMENT    CREATION     ECUTINE    220 

N.       EELETE    ITB    ROUTINE 221 

0.       SYSTEM    FUNCTION    CCNTEOL    ROUTINE       223 

P.       SYSTEM    INSTALATION    ROUTINE    224 

Q.       SYSTEM    RESET    ROUTINE 225 


R.       SYSTEM    ACCESS    CONTROL    ROUTINE 


129 


EIBLICC-BJ.PHY 


:32 


INITIAL  DISTRIBUTION  LIST 


13  3 


II ST  OF  FIGURES 

3.1  Initial  Data  Flow  Diagram 28 

3.2  Data  Flow  Diagram  Expansion  for  DBMS 29 

3.3  Data  Flew  Diagram  Expansion  2 30 

3.4  Data  Flow  Expansion  for  Access  Function   ....  31 

3.5  Data  Flow  Expansion  for  Command  Generators  ...  32 

3.6  ITEM  System  Eierarchy 34 

4.1  Command  Determiner  Menu 44 

4.2  Attributes  and  Descriptors  Display  45 

4.3  Standard  Repcrt  Menu 47 

4.4  Personnel  Rcster  Repcrt 48 

4.5  Training  Status  Report  49 

4.6  Marksmanship  Status  Report  51 

4.7  Marksmanship  Roster  Report  53 

4.8  MOS  Status  Report 53 

4.9  MCS  Roster  Beport 54 

4.10  EST  Status  Report 55 

4.11  Swimming  Qualif icatioc  Status  Report  56 

4.12  Maintenance  Module  MeDU 57 

4.13  ITR  Screen  Format 58 

H.14  System  Function  Menu 62 

4.15  Access  Function  Menu 63 

B.1  Memory  File 77 


10 


I-  IU21OJ20CTION 

1.   GINEBA1  DESCHIPTIC3 

This  interactive  prototype  automates  the  existing  manual 
system  cf  maintaining  individual  training  information  on 
OSMC  personnel.  The  term  "system"  is  used  throughout  this 
thesis  tc  mean  hardware  and  software.  The  software  consists 
of  customized  code  which  overlays  a  commercially  available 
data  tase  management  system  (DEMS) .  The  system  is  targeted 
for  implementation  at  the  infantry  or  artillery  battalicn  or 
subordinate  unit  level.  However,  with  minor  modifications, 
primarily  increasing  the  limitation  on  the  number  of  subor- 
dinate units  and  increasing  the  size  of  the  database,  the 
system  could  be  used  ty  any  D.S.fl.C.  organization,  including 
the  Marire  Air  Ground  Task  Force  (MAGTF) .  No  prior  user 
experience  in  computer  or  automated  systems  is  assumed.  In 
addition  to  generatirg  standard  reports,  the  system  provides 
limited  decision  support  capabilities,  responds  to  non- 
standard data  base  irguiries,  and  includes  facilities  for 
data  tase  maintenance. 

£.   EICKGECUND 

Individual  training  subjects  in  the  U.S.  Marine  Corps 
encompass  a  variety  cf  otherwise  unrelated  training  tcpics 
that  are  conducted  and  evaluated  periodically.  The  ccmmon 
characteristic  of  individual  training  vis-a-vis  unit 
training  is  that  training  and  testing  relate  to  individual 
skills  and  individual  levels  cf  performance.  Since  the 
focus  is  en  individual  training  and  individual  testing,  data 
is  maintained  for  each  individual  in  a  unit  and  conse- 
quently, the  system  is  very  data  intensive. 
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Individual  training  includes  subjects  such  as  "essential 
subjects",  physical  fitness,  rifle/pistol  qualifications, 
career  training,  and  military  occupational  specialty  (MCS) 
training.  Each  subject  or  grouping  of  subjects  typically 
includes  its  own  set  of  training  and  testing  requirements. 
for  example,  some  individual  training  subjects  require 
proficiency  demonstration  only  once  during  an  entire  career 
while  others  must  be  evaluated  annually.  In  total  indi- 
vidual training  information  includes  approximately  60  sepa- 
rate elements  of  information  that  must  be  maintained  for 
each  Marine.  Individual  Training  Records  (ITR's)  are  tradi- 
tionally maintained  manually  at  the  company  level.  A  data 
tase  consisting  of  200  records  and  10,000  data  elements  in  a 
company  size  unit  is  not  uncommon.  In  addition  to  data  base 
maintenance  ,  which  includes  frequent  creation,  deleticn, 
and  update  cf  records,  the  data  base  is  often  used  to 
provide  training  management  information  concerning  the 
current  training  status  of  the  unit  or  as  a  basis  for  devel- 
oping   future  training   plans. 

It  is  the  contention  cf  this  thesis  that  the  system  can 
re  operated  and  maintained  by  a  technically  unsophisticated 
user    at    a   reasonable   cost. 

C.       OBJECTIVES 

Ihe  objective  of  this  thesis  is  to  design  and  inplement 
a   prototype  system   ttat    is    simple   to   use   and   that: 

1.  Maintains     individual      training   records      for      a      OSMC 
rattalion; 

2.  Provides    standard   reports    upon    request; 

3.  Provides    nonstandard    reports    upon   request; 

4.  Demcnstra tes    a   decision   support    application; 

5.  Provides    a   data   base    maintenance   capability. 
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C.       EHilFCKMENT 

The  system  is  used  and  maintained  by  persons  with  no 
prior  experience  with  computers  and  with  little  prior 
trainirg  en  this  system.  The  system's  data  base  requires 
frequent  maintenance.  Approximately  a  30%  record  turnover 
rate  (i.e.,  30%  of  eld  records  will  be  deleted  and  303  new 
records  will  be  inserted  into  the  data  base)  is  expected 
each  year.  Addit iorally,  records  will  be  modified  at  the 
rate  cf  approximately  50  data  fields  per  work  day  for  each 
company  (cased  en  an  average  strength  of  150  Marines  per 
compary)  .  The  physical  environment  envisioned  is  a  typical 
office  setting  with  no  unique  system  requirements 
anticipated. 

E.       SISTIM    CHARACTERISTICS 

The  following  system  characteristics  are  listed  in  order 
cf   impcrtance. 

1  •      £§.§=  friendly 

The  systam  is  simple  to  operate  and  maintain.  It 
requires  no  extended  training  sessions  and  it  provides 
prompts   to   the   user. 

2 .      Reliability 

Ihe  reliability  of  the  hardware  and  the  DEMS  is 
teyend  the  scope  of  this  thesis.  The  code  written  tc  imple- 
ment this  design  is  the  user-system  interface.  Accordingly, 
to  ensure  the  integrity  of  the  system,  the  DBMS  remains 
transparert  and  inaccessible  to  the  user.  The  overall  reli- 
ability cf  the  system  is  high.  To  this  end,  the  system 
includes   the  following   provisions: 

a.      Menu   driven 
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t.        No     possibility   cf      accidental  erasure      of   data 
base. 

c.      No    possibility    cf    user   to   "escape"   or    default   to 
EBMS. 

3 .  Ccs  t 

The  costs  of  a  mi crccomputer  and  the  proprietary 
software  required  tc  run  the  system  are  low  compared  to 
mainframe  or  mini-computer  application. 

4 .  Expandability  of  data  base 

Ihe  data  base  can  be  expanded  subject  to  memory  and 
EBMS  constraints.  The  larger  the  data  base  the  slower  the 
systeir  will  respond  tc  user  requirements.  This  is,  however, 
an  acceptable  tradeoff. 

5  •   Expandability  of  functions 

The  system  can  be  easily  expanded  to  include  added 
functions.  This  facility  has  bean  implemented  by  incorpo- 
rating a  nodular  structure  in  the  design.  A  module  can  be 
added  cr  modified  with  little  difficulty. 

6  •   i£§§J.  of  operation 

The  speed  of  the  system  is  relative  to  the  size  of 
the  data  base.  However  in  all  cases  compared  to  the  present 
manual  system  it  is  much  faster. 

I.   SDMS2BT 

1  •      .=££££  £f,  Development 

This  thesis  includes  the  determination  of  system 
requirements,  system  feasibility,  system  design  and  review, 
and    i nplementaticn    of  a   functional   prototype. 
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2 .   CcncejDt 

The  purpose  cf  this  thesis  is  to  demonstrate  fsasi- 
bility  cf  the  concept:  A  fully  automated  individual 
training  record  management  system  for  a  battalion  size  unit 
can  he  inplemented  ce  a  microcomputer.  The  system  can  be 
developed  and  operated  at  a  reasonable  cost.  Furthermore, 
the  system  can  be  operated  and  maintained  by  persons  having 
no  pricr  computer  experience  after  little  training. 
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II.    SYSTEM    EESCBIFTICH    AND    HE£DIREMENTS 

1.       INEOT    IHFORHATIOS 

The    usei*s    input   consists   of   a   sequence   of  menu    prompted 
responses.  Each      user's      response   is      either      a      specific 

request  to  the  system  for  data  base  maintenance,  a  standard 
report,  or  data  necessary  tc  generate  the  desired  nonstan- 
dard   iepcrt. 

E.       SISTIfl    SPECIFICATION    (FUNCTIONAL) 

1  •      Iraininq    Data 

The  system  is  capable  of  developing  and  maintaining 
training  data  for  at  least  600  Marines.  The  following 
information   is    maintained  for   each  individual: 

a.  Name/SSN/personal   data 

b .  Ra  n  k 

c.  Unit    (conpany  and    platoon) 

d.  Annual  training  requirements  status  (essential 
subjects,   leadership,    SNCO/NCO  training    ,etc.) 

e.  Rifle/pistol  qualifications  status  (current 
year) 

f.  MOS    qualifications 

g.  An  unformatted  data  field  to  be  utilized  as 
desired  by  the  user.  It  may  be  used  to  maintain  the 
following   kinds   of    information: 

(1)  Formal   schools   attended. 

(2)  Local  schools   attended. 
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(3)  MCI  courses  completed. 

(4)  Participation    in    training    exercises/ 
training  deployments. 

2-   lata  Base  Maintenance 

Maintenance  of  the  data  base  is  simple  and  provides 
positive  user  control  at  all  times  (i.e.,  user  inputs  data 
and  views  updated  individual  training  record  before  data  is 
stored  into  memory)  . 

3 •   Fepcrt  Fcrmats 

Kost  standard  reports  are  retrievable  in  a  statis- 
tical mode  or  in  a  urit  roster  mode. 

a.   Statistical  Mode 

The  statistical  mcde  report  provides  the  total 
cr  the  percent  of  a  unit  that  has  satisfied  a  particular 
user  specified  training  criterion  (What  percent  of  a  unit  is 
swim  qualified ?)  . 

t.   Roster  Mcde 

The  roster  mcde  report  provides  names  of  perscns 
in  a  specified  urit  that  have  satisfied  a  training 
criterion. 

4  .      Data  Retrie  val 

All  standard  reports  are  retrievable  by  unit  desig- 
nator (e.g.,  battalion,  company/platoon).  Training  data  is 
retrievable  by  individual,  by  unit,  or  by  a  user  defined  set 
of  attributes  (e.g.,  all  sgts  in  A  CO)  utilizing  the 
nonstandard    reports   option. 
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5  •      Standard   Reverts 

The  system    prcvides   the   following   standard   reports: 

a.      Unit  Roster 

The  Unit  Eoster  Eeport  will  display  in  alphabet- 
ical order  the  NAME,  RANK,  and  PRIMARY  MOS  for  each  member 
cf   the    selected    unit   or   subunit. 

t.      Personal   Data  Report 

The  Personal  Data  Report,  displays  for  each 
member  cf  a  unit  or  subunit  all  personal  data  including 
NAME,  SSU,  RANK,  PRIKARY/S ECCNDARY  MOS,  UNIT/SOBONIT  NAME, 
JOIN  EATI,  IAS,  E-IRTEDATE,  HEIGHT,  WEIGHT  and  a  one  char- 
acter   fccclean  comment   block. 

c.~    Essential  Subject    Training   Requirements    Status 

Eeport 

The  Essential  Subject  Training  Requirements 
Status  Report  displays  the  percent  and  total  number  of  unit 
or  sutunit  members  that  have  completed  an  Essential  Subject 
requirement   or    the    PFT    (physical    fitness   test). 

d.      Annual   Training    Requirements   Status    and   Rcster 

Eeports 

The  Training  Status  Report  displays  for  each 
essential  subject,  the  percent  of  the  unit  that  has  success- 
fully cctrpleted  each  training  element  and  the  total  numfcer 
of  unit  members  that  have  completed  each  training  element. 
In  addition,  the  Training  Status  Report  includes  completion 
statistics  for  PFT1,  FFT2,  SHIMQUAL,  RIFLE  QUAL,  and  PISTOL 
CUAL. 

The  Training  Roster  Report  displays  in  alphabet- 
ical   crder    each      memter   of    the   selected    unit     or    subunit   and 
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his  complete  training  status  for  the  current  year.  If  a 
training  element  has  been  successfully  completed  for  the 
current  year,  a  letter  corresponding  to  that  training 
element  will  be  shewn.  An  "*"  symbol  indicates  that  a 
training  element  has  not  been  completed.  For  example, 
"FIRST  AID  AE*H**B**CF"  indicates  that  elements  ABDEF  and  H 
have  teen  completed  and  five  cf  the  eleven  elements  have  not 
been  completed  (i.e.,  C,G,I,J  and  K)  . 

e.  Rifle/Pistol  Qualifications  Status 

and  Rcster  Reports 

The  Marksmanship  Status  Report  will  display  the 
qualificat icn  results  for  the  unit  or  subunit  members  that 
have  fired  the  rifle  or  pistol  for  qualification  during  the 
current  year.  Also,  the  percent  that  have  qualified  in  each 
category  (eg.  EX, SS, MM, UN)  and  current  year  results  for 
rifle  and  pistol  will  be  shewn.  The  pistol  qualification- 
results  include  only  those  members  required  to  fire  the 
pistel  fcr  qualification. 

The  Marksmanship  Ecstar  Report  will  display  in 
alphabetical  order  the  NAME,  RANK,  DATE  OF  QUALIFICATION, 
and  QUALIFICATION  RESULTS  for  each  member  of  the  selected 
unit  cr  subunit.  Current  year  results  only  will  be 
displayed. 

f.  MOS  Qualification  Status  and  Roster  Reports 

The  MOS  Bcster  Report  groups  the  selected  unit 
cr  subunit  by  primary  MOS  and  RANK  and  then  displays  in 
alphabetical  order  the  NAME,  RANK,  PRIMARY  MOS  AND  SECONDARY 
MOS  cf  all  members  in  the  unit  or  subunit.  This  report  will 
function  regardless  cf  the  number  or  different  types  of 
MOS's  ccrtained  in  a  unit. 
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g.      Individual  Training   Record   Report 

The  Individual  Training  Record  Report  prompts 
the  user  for  the  nam€  cf  a  member  in  the  data  base.  After  a 
name  is  entsred  the  complete  individual  training  record  for 
that  individual  is  displayed.  This  includes  all  training 
data  included  in  the  data  base  on  this  particular  individual 
(i.e.,  essential  subject  status,  PFT  status,  current  year 
rifle/pistol     qualification      results,  swim      qualification 

status)      and  personal  data     (i.e.,      name,      rank,      SSN,      unit, 
primary    MOS) . 

h.      Swim   Qualification    Report 

The  Swim  Qualification  Report  displays  in  alpha- 
betical crder  for  each  member  of  the  unit  or  subunit 
selected   NAME,    RANK,    UNIT  and   current   swim   QUAL   results. 

6-      Eecision   SupiSIl  Subsystem 

The  purpose  cf  this  component  is  simply  tc  demon- 
strate the  decision  support  potential  of  this  system  using 
the    available   data   base. 

7  •      Nonstandard    Eeports 

The  system  generates  user  defined  non-standard 
reports.  These  reports  are  created  from  attributes  that  the 
user  determines.  A  maximum  of  three  attributes  can  be 
selected. 

8  •      System   Ccntrcls 

Safety  ccntrcls  are  provided  to  ensure  that  the  data 
base  cannot  be  accidentally  written  over  or  otherwise 
desxrcjed.  Also,  the  system  includes  an  executive  access 
contrcl  facility,  and  control  for  "read  only"  access  or 
"read/write"  access.  System  access  is  permitted  in  one  of 
the    fcllcwirg  three    levels: 
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a.  Data  Base  Administrator  level  is  intended  for 
the  sole  use  of  the  Data  Base  Administrator  and 
includes  full  system  capabilities  (install  system, 
initialize  data  base,  modify  access  directory, 
create/    delete/modify    data   base   records) . 

t.      Create/modify   data    base   level 

c.  Restricted  to  retrieve  information  in  report 
format    only    from  the   data   base. 

9 .      Cutout    Mode 

lie  prototype  is  capable  of  sending  reports  to  a  CRT 
screen.  With  minor  nrodif ications  the  user  can  be  given  an 
cpticn   cf    screen   or    printed    copy   output. 

C.       BICjOIREE  SPECIFICATIONS     (BCH-PONCTIONAL) 

The    following   is   a   list      of  non-functional  system   speci- 
fications: 

1.  The    system  is   interactive. 

2.  A  high  schocl  graduate  with  no  computer  background 
can  retrieve  standard  reports  with  no  more  than  cne 
hcur   of    systen  training. 

3.  A  high  school  graduate  with  no  computer  background 
can  create  and  maintain  the  data  base  with  nc  mere 
than   six    hours  of   training. 

4.  A  high  school  graduate  with  no  computer  background 
can  retrieve  a  s-candard  report  after  one  hour  of 
training. 

5.  A  high  school  graduate  with  no  computer  background 
can  retrieve  a  multiple-criteria  nonstandard  repcrt 
after  an    additional    cne   hour   of   training. 

6.  The  system  can  be  easily  modified  to  change  record 
fcrmats,      field   formats,      and   s-candard  report    formats 
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without  a  majcr  redesign  or  reprogramming  effort.  A 
major  redesign  is  considered  any  design  effort  that 
involves    changing   a    module   interface. 

7.  The  system  can  retrieve  standard  reports  in  15 
ninutes   or  less. 

8.  The  system  car  retrieve  non-standard  reports  in  30 
ninutes   or  less. 

9.  The  system  dees  "out  of  bounds"  checking/parameter 
decking  on  all  quantitative  data  and  standard 
inputs. 

10.  The  system  automatically  converts  rifle,  pistol,  and 
PFT  raw  scores  into  corresponding  qualifications 
(e.g.      245  rifle   raw    score  ==>   Expert)  . 

D.       DATA    STBOCTOBE    DZPIHITICSS     (DATA    DICTIONARY) 

1  •      Introduction 

The  data  dictionary  should  be  maintained  by  the  Data 
Ease  Administrator  and  documentation  should  be  accessible  to 
all    users.  This    data    dictionary      facilitates   maintenance, 

the      integrity      of    the      information      in      the    data      base      and 
provides    information   en   data   relationships. 

2.      Cat a  Base   Management   System 

a.      Commercial   Software 

The  Data  Ease  Management  System  (DBMS)  kernel  is 
a  commercially  available  software  system.  The  program  dBase 
II,  a  relational  DBMS,  provides  all  of  the  necessary  attri- 
butes (availability,  record  capacity,  user  friendly  environ- 
ment, etc.).  Therefore,  dEase  II  (Ashton-Tate  version  2.4) 
is  used,  and  data  structures  are  implemented  by  the  dBase  II 
system. 
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t.      Data  Base  Files 

The  information  maintained  on  each  individual  is 
organized  in  a  relational  data  base.  The  following  records 
cr  tuples  are  defined  for  each  individual  (  The  numter  of 
characters  per  field  is  defined  in  the  data  element 
dictionary,    see    Appendix   A)  : 

0 )      £®£J£nal   Information   Record.  SSN,      name, 

military  occupational  specialty  (MOS) ,  rank,  weight,  height, 
company/platoon,  birthdate,  joindate,  expiration  of  active 
service    (EAS)  ,    and    gas   mask    size. 

(2 )  Ess e rt ial    Subject      T ra i ni ncj    Requirements  . 
SSN,    9   essential  subjects,    and   physical    fitness   information. 

(3)  Rif le/Pist ol/Swimminq  Qualifications. 
SSN,      rifle   score  current   year,        pistol  score  current    year, 
swimmirg   gualif ica ticns,   and   dates. 

(*)  Inf crmation  Miscellaneous.  SSN,  11  fields 
for   training  information. 

(5)  Comment.  SSN;  250  characters  that  can  be 
utilized,  at  the  users  discretion,  for  formal/informal 
school  data,  deployments  information,  MCI  courses  completed 
cr   specific   comments. 

(6)  Security.  SSN,  name,  user  identification 
code,    password,    and    authorizaticn   level. 
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III.  E ET HOD CLOG Y  AND  DESIGN 

1.   BITHCDOLOGY 

1  .   Software 

At  the  center  of  the  software  subsystem  is  the  IBM 
Personal  Computer  Disk  Operating  System  (DOS  2.0).  System 
requirements  for  PC  ECS  operating  systems  includes: 

a.  8038   bas€<3   microprocessor 

b.  128K  bytes  of   RAM   memory 

c.  Cursor    addressable    24   line   by   80   column   CRT 

The  software  layer  immediately  outside  DOS  2.0  is 
dBase  II  "  (version  2.4)  which  is  a  commercially  available 
relational  data  base  application  system  developed  and 
distributed  by  ASHTO  N-TATE.  dEase  II  is  a  data  base  manage- 
ment tool  that  permits  manipulation  of  user  designed  data 
base  files  using  English-like  commands  which  collectively 
define   a   guery    language. 

The  layer  of  code  contiguous  with  and  completely 
surrounding  dBase  II  is  what  we  designed  and  wrote  to 
satisf j  the  thesis  objective.  The  cede  is  written  in  the 
dBase  II  guery  language.  This  layer  of  code,  that  will  be 
referred  to  as  the  "cuter  layer",  is  designed  to  be  the  only 
interface      between    the      system   user      and      the    system.  All 

systei  entries,  data  base  transactions  or  manipulations, 
report  inquiries,  and  system  exits  are  through  the  cuter 
layer  cf  code.  This  is  an  important  and  necessary;  design 
consideration  for   the  following  reasons: 
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a.   Simplicity 

In  order  tc  satisfy  the  system  requirement  for 
simplicity,  it  was  necessary  to  impose  a  software  layer 
tetween  the  user  and  the  dBase  II  software.  This  cuter 
layer  presents  to  the  user  a  series  of  menus.  The  user 
respcnds  tc  each  menu  prompt  by  pressing  the  keybcard  key 
that  corresponds  to  action  desired.  The  user's  response  in 
turn  initiates  a  cede  sequence  that  causes  the  desired 
acticn  tc  be  taken.  If  additional  user  input  is  required 
to  complete  the  acticn,  the  cede  causes  another  menu  to  be 
presented  tc  the  user.  Each  menu  represents  an  exhaustive 
list  cf  possible  options  that  may  be  selected  by  the  user. 
This  sequence  of  menu  presentation  and  user  response  is 
repeated  until  the  desired  action  has  been  adequately 
defined.  At  this  pcint  the  cede  executes  using  as  variables 
the  input  provided  by  the  user.  Therefore,  this  cuter  layer 
includes  all  of  the  code  that  determines  the  functions 
available  tc  t-he  user  and  simplifies  the  operation  of  the 
system. 

t.   Layering 

If  the  user  had  access  to  the  DOS  2.0  or  the 
dBase  II  layer  he  could  easily  modify  the  outer  layer  code. 
This  acticn  could  cause  a  system  failure.  Therefore,  this 
eventuality  must  be  prevented.  Another  function  of  the 
cuter  layer  is  to  prevent  access  to  inner  layers  of 
software . 

c.   Data  Integrity 

Since  the  data  base  files  contain  personal  data, 
that  needs  to  be  protected,  it  is  important  to  limit  access 
to  the  data  base.  also,  uncontrolled  access  to  data  base 
files  can  result  in  lest  data  or  catastrophic  destructicn  of 
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the    data   fcase.         To    preclude   this,      the    cuter   layer    previses 
systen   security    and    ensures    data    integrity. 

d.      File  Maintenance 

Whenever  data  tase  files  are  accessed,  house- 
keeping functions  need  to  fce  performed  such  as  opening  or 
closirg  files,  joining  files,  creating  temporary  files  or 
deleting  temporary  files  when  no  longer  needed,  and  creating 
cr  releasing  variables.  The  outer  layer  automatically 
performs  these    functions   for   the    user. 

E.       SCFT1ARI   DESIGN 

1  •      Structured   Programming 

although  the  dBase  II  query  language  is  not  a  struc- 
tured programming  language,  structured  programming  techni- 
ques were  employed  during  the  software  design.  This  was 
done  to  reduce  system  maintenance,  to  simplify  system  design 
and  to  make  future  changes  to  the  system  easier  tc  imple- 
ment. The  following  techniques  were  emphasized  during  the 
design    phase  of    the    development   cycle. 

a.      Top    down    design    and   hierarchical    structure 

t.      Modularization 

c.  Information   hiding 

d.  In    general,    efforts    were   made   to    maximize    module 
cohesion   and   to    minimize   coupling    between    modules. 

2  •      Top-down    De sicjn 

The  overall  design  cencept  was  the  top-down  design 
cr  step-wise  refinement  technique.  This  concept  provides 
the  capability  tc  work  from  a  simple  idea  and  expand  it  to 
the    final   complex   product.       This   process    facilitates   orderly 
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and  logical  development  of  the  design  steps.  The  first  step 
in  the  process  is  to  determine  how  the  data  or  an  input  is 
transformed  to  produce  the  desired  output.  The  concentra- 
tion is  en  •What1  is  done  not  •How*  it  is  done.  With  this 
information  data  flow  diagrams  are  produced.  These  diagrams 
should  te  considered  arrows  pointing  to  'black  boxes'  which 
manipulate  the  data.  The  actual  mechanisms  of  the  manipula- 
tions are  net  important  at  this  point  in  the  design  process. 
The  diagrams  shew  the  information  passing  through  the  system 
and  the  transformation  of  data  in  the  system.  These 
diagrams  are  produced  at  an  increasing  level  of  detail  until 
further  expansion  does  not  provide  a  significant  change. 

From  the  data  flow  diagrams,  hierarchical  charts  are 
produced.  Any  information  modifications  that  are  related, 
are  grouped  into  the  same  module.  Once  the  hierarchy  is 
established,  algorithms  are  developed  using  structured 
programming  techniques.  These  algorithms  are  then  converted 
into  code.  The  cede  is  implemented  using  the  top  dewn 
programming  technique,  this  technique  implements  the  highest 
levels  of  the  hierarchy  first.  As  lower  level  modules  are 
completed  and  tested,  they  are  added  to  the  existing 
modules.   This  technique  simplifies  a  complicated  program. 

C-   DATA  FLCW  DIAGHAES 

At  first,  it  is  necessary  to  decide  what  information 
goes  into  the  system  and  what  information  exits  from  the 
system.  The  user  inputs  both  data  and  commands  frcm  a 
terminal  and  receives,  from  the  system,  reports  and  informa- 
tion. Ihe  first  iteration  of  the  data  flow  diagram  has  two 
inputs  and  two  outputs  (see  Figure  3.1). 

The  Individual  Training  Record  Management  (ITEM)  System 
is  responsible  for  maintaining  a  large  amount  of  data. 
Handling  of  the  infermation   should  be   transparent  to   the 
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Figure   3.  1        Initial   Data   Flow   Diagram 

user.  Therefore,  a  Data  Base  Management  System  (DBMS)  was 
incorporated  to  maintain  the  data  base.  The  DBMS  requires 
specific  commands  as  input  and  outputs  information  (se<= 
Figure    3.2)  . 

The  ITBM  System  is  designed  tc  have  a  restricted  access. 
The  user  must  enter  the  proper  identification  for  the  system 
to  allow  access.  Ihe  access  function  produces  a  valid/ 
invalid  acknowledgement  to  the  remaining  portion  of  the  ITBM 
systei.  Commands      and      data        pass      through      the      Ccnimand 

Deteriiner  which  selects  the  type  of  action  the  system  is  to 
execute.  The      three      functions        called      by      the      Command 

Deteriiner    are: 

1.  Standard   Comaand   Determiner 

2.  Kcnstandard    Command    Determiner 

3.  Maintenance    Handler 
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figure    3.2        Data    Flow    Diagraa    Expansion-  for    DBHS 

These   three    functions     interface    with   tne    DBMS      oy    producing 
CBMS    com Bands-  Th€   DBMS    then      communicates   to      the    Report 

Geneiatci    the      inf ornatior    necessary    to    produce      the    desired 
reports.      Figure   3.3    shows    the   second   expansion. 

Ihe  access  control  of  any  system  car.  be  very  complex. 
This  system  requires  the  user  to  input  an  identification 
cede  and  a  password.  The  system  then  matches  these  items  to 
insure  ar.  authorized  user.  If  access  is  valid,  the  user's 
authorization  level  is  passed  to  tne  rest  cf  the  system.  If 
access  is  invalid,  the  user  gets  oil:  more  opportunity  to 
enter  a  correct  access  sequence.  If  the  user  fails  again. 
the  system  terminates  the  session.  The  information  required 
to    handle    the      access    function    is   stored    in      the    DBMS.         The 
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Figure  3.3   Data  Flow  Diagram  Expansion  2 

premise  cf  the  entire  system  is  to  prompt  the  user  into 
entering  the  correct  response,  thereby  reducing  the  need  for 
any  Frier  experience.  The  ITEM  systea  prompts  the  user  for 
the  proper  access  cedes  and  informs  him  wher.  an  error  has 
been  irade.  Figure  3.U  displays  the  Access  data,  flow  expan- 
sic  n . 

Each  cf   the  Command   Determiners  prompts   the  user   for 
responses  from  which  EBMS  commands  are  derived.    The  report 


3C 


System 
J     Startup 


Pf<*C.t    Wv<*i> 


S 


InttUMrttlon 


!3  Nk*o*<- 


^ vailc 


DIW>    CW3 


lnytHO    10 


DBMS  Ato'iy 


rrrc-        ^ I v 

-***•?•  /  invai  Id 
* 1   entry 


/  DBMS  \». 


pata  Base 


Invito   /D»ce*n'-^     08«S  C»C 


Pt 


val  la 


^- 


t>ro«Ol   WMMge 


OIMS  ft»D>y 


valid  i**'-  i 

Autr»o-i/»t»on 


Figure    3,4        Data   Flow    Expansion    for   Access    Function 

generator  then    interprets      the   DBMS    replies  and      prompts   the 
user    tc    format    the    reports     (Figure    3.5)  . 

The  data  flew  diagrams,  demons-rate  the  simple  and 
logical  flew  of  the  data  through  the  ITEM  System.  The  next 
step  is  tc  logically  organize  the  flow  diagrams  into  a  hier- 
archy of  modules  that  accomplish  the  data  transformations 
depicted    in    the    data    flow  diagrams. 
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Figure  3.5    Data  Flow  Expansion  for  Command  Generators 


E.   S1ST1H  HISBABCHT 

The  ITEM   System  is   relatively  simple   in  design.     It 
requires   maintenance   of   the   data   base,    production   of 
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standard  reports,  and  simple  query  capabilities  for  the  user 
through  nonstandard  reports.  The  system  must  be  initialized 
and  sequential  control  established.  The  ITRBS  Master 
Control  Module  was  created  to  handle  the  functions  cf  system 
control  and  initialization.  This  module  is  the  highest 
level  of  the  hierarchy,  level  1.  All  access  functions  are 
consolidated  in  one  module,  the  Access  Module.  The  Command 
Eeterminer  Module  controls  which  functions  the  user  can 
invoke  and  checks  for  proper  authorization  level.  The 
Access  and  Command  Eeterminer  Modules  comprise  the  second 
level  of  the  hierarchy. 

The  Standard  Command  Eeterminer,  Nonstandard  Command 
Eeterminer,  and  the  Maintenance  Handler  are  combined  with 
portions  cf  the  Report  Generator  to  form  three  modules,  the 
Standard  Report  Generator,  the  Nonstandard  Report  Generator, 
and  the  Maintenance  Kcdule.  These  three  modules  interface 
with  the  EEMS  and  prccuce  DBMS  commands.  In  addition,  they 
process  the  information  returned  from  the  DBMS  and  produce 
the  appropriate  reports.  Consolidation  of  determiner  and 
report  generation  functions  simplifies  the  structure  cf  the 
systei  and  facilitates  subsequent  maintenance.  The  three 
modules.  Standard  Report  Generator,  Nonstandard  Report 
Generator,  and  Maintenance,  comprise  the  third  level  cf  the 
hierarchy.  The  lowest  layer  cf  the  hierarchy  contains  the 
DBMS.  Ihe  hierarchy  displayed  in  Figure  3.6  demonstrates 
simplicity  of  design. 

E.   MCDDIE  EESCRIPTICBS 

1.   ITRMS  Master  Control  Module 

a.   Module  Purpose 

The  ITRMS  Master  Control   Module  initializes  the 
system  and  controls  the  logical  sequencing  of  all  modules. 
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Figure    3.6        ITEM   Systen    Hierarchy 

t.      Module    Function 

The  ITRMS  Master  Control  Module  initiates  and 
coordinates  all  internal  system  processes  (except  operating 
systen:    functions).  The    module      responds    to      internal   cues 

(free  ether  modules)  and  to  environmental  cues  (froi  the 
user)  .  Th€  module  controls  the  access  to  all  modules  and 
shields  the  user  frcn  the  resident  operating  system.  The 
module  will  not  allow  the  user  to  exit  to  the  operating 
systen. 
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c.   Interfaces 

The  master  control  module  is  at  level  1  which  is 
the  highest  level  ir  the  mcdule  hierarchy.  It  interfaces 
with  two  modules  at  level  2,  Access  Mcdule  and  Command 
Determiner  Kodule. 

c.   Design  Decisions 

This  module  can  be  easily  modified  to  handle  any 
expansions  ty  adding  new  module  interfaces. 

2  •   Access  Module 

a.   Module  Purpose 

The  Access  Module  prompts  the  user  for  an  iden- 
tification code  and  password.  The  module  determines  if  uhe 
user  has  authorized  access  and  assigns  the  corresponding 
level  cf  access. 

h.   Module  Function 

The  Access  Module  requests  the  user's  identifi- 
cation cede  and  password.  It  validates  the  ID  to  ensure  the 
user  is  en  the  access  list  and  to  ensure  that  the  password 
corresponds  with  the  user  ID.  If  the  user  ID  is  net  on  the 
access  list  an  appropriate  message  is  returned.  If  the 
password  does  net  correspond  with  the  user  ID  (after  two 
iterations)  ,  an  appropriate  message  is  displayed  and  the 
session  is  terminated.  Once  the  correspondence  cf  IE  and 
password  has  been  determined,  the  module  passes  the  access 
authciizaticn  level  tc  the  command  determiner.  The  authori- 
zation level  is  used  to  determine  which  menu  options  are 
available  tc  the  specific  user. 


35 


c.  Interface 

The  Access  Module  receives  control  instructions 
from  the  ITEMS  Master  Control  Module.  The  kccsss  Module 
interfaces  directly  Kith  the  DEMS  to  manipulate  the  security 
file.  After  the  access  module  completes  its  processing  and 
if  the  user  is  authorized  access,  the  level  of  access  is 
passed   rack  to    the    ITEMS  Master   Control   Module. 

d.  Design    Decision 

The  design  allows  modifications  to  be  made  to 
the  access  system  without  side  effects. 

3.   Command  Determiner  Module 

a.   Module  Purpose 

The  Command  Determiner  Module  directs  control  to 
either  tie  Standard  Eeport  Generator,  Nonstandard  Report 
Generator,  or  the  Maintenance  Module. 

r.   Module  Function 

The  Command  Determiner  asks  the  user,  through  a 
standard  set  of  menu  prompts,  what  task  he  wishes  to  accom- 
plish. Based  on  the  user  response,  the  Command  Determiner 
Module  transfers  control  to  one  of  the  three  lower  level 
nodules.  The  Command  Determiner  Module  also  checks  to  see 
if  the  user  has  access  to  that  module.  If  access  is  not 
authorized  then  an  appropriate  message  is  displayed. 

c.   Interfaces 

The  Command  Determiner  is   called  by   the  ITEMS 

Master   Control  Module   and   passes   control  to   either  the 

Standard  Eeport  Generator,  Nonstandard  Eeport  Generator,   or 

the  Maintenance  Module. 
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c.      Design    Decisions 

This  module  allows  the  separation  of  the 
Standard  Report  Generator,  the  Nonstandard  Report  Generator, 
and    the      Maintenance    Kodule.  This   separation      facilitates 

changes    and  reduces    ircdule    coupling. 

a  •      nonstandard    Eeport    Generator    Module 

a.  Module    Purpose 

The  Nonstandard  Report  Generator  allows  the  user 
to  query  the  data  base  in  a  controlled  manner.  The  queries 
are  generated  frcm  a  series  of  prompts  to  the  user. 

b.  Module    Function 

The  module  prompts  the  user,  through  a  series  of 
menus,  tc  produce  the  desired  query.  When  the  module 
receives  the  appropriate  prompted  input  from  the  user,  the 
nonstandard  command  generator  accesses  the  DBMS  for  the 
requested  information.  The  information  is  '  then  formatted 
and  displayed. 

c.  Interfaces 

The  Command  Determiner  Module  calls  this  mcdule 
tased   on   user  selection.  The   Nonstandard   Report   Generator 

interacts   directly      with   the   user.        This      module   constructs 
the   queries     and   communicates      them   to      the  DBMS.  It   also 

processes   the   information   received   from   the  DBMS    and    formats 
the    data   into   a    report. 

c-      Design    Decisions 

If  there  is  a  future  need  to  modify  the  types  of 
queries  that  are  available  to  the  user,  the  changes  will  be 
confined   tc   this  module. 
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5  •      Standard  Revert   Generator   Module 

a.      Module    Purpose 

The  Standard  Report  Generator  produces  the  DEMS 
commands      that    will      create      the      standard    reports.  These 

reports   are    produced    en   a      regular    basis,      therefore,      it   is 
advantageous  to    standardize    the   reports. 

t.      Module    Function 

The  Standard  Report  Generator  displays  option 
menus  to  the  user  and  translates  user's  responses  intc  the 
necessary  sequence  cf  DBMS  instructions.  After  the  user 
decides  fchich  standard  reports  will  fulfill  his  needs,  the 
module  formats  standard  reports  and  displays  the  user 
requested      information.  The        Standard      Report      Generator 

includes    a    CSS    subset. 

c.  *   Interfaces 

The  Standard  Repcrt  Generator  is  called  by  the 
Command  Determiner.  The  Standard  Report  Generator  communi- 
cates with  the  DEMS  and  processes  information  from  the  DBMS 
to  produce  its  reports. 

d.  Design    Decisions 

This  module  was  designed  to  take  advantage  of 
the  fact  that  many  applications  are  routine  in  nature. 
These  are  programmed  in  a  single  module  and  significantly 
simplify  access  to  routine  reports.  If  any  of  these  routine 
reports  need  modification,  the  change  can  be  isolated  to 
this  mcdule. 
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6  •   Maintenance  Kcdule 

a.   Module  Purpose 

The  Maintenance  Module  provides  users  the  capa- 
bility tc  create,  delete,  and  update  the  data  base  records. 
Necessary  system  functions  reside  in  this  module.  The  Data 
Base  Administrator  maintains  the  access  file  from  this 
module  and  initializes  the  system  to  his  specific  unit. 

t.   Module  Function 

To  update  a  record,  the  Maintenance  Module 
extracts  the  data  in  each  data  base  file  for  a  selected  unit 
member.  The  data  is  combined  into  a  single  screen  display 
representing  all  data  contained  in  the  system  on  the  indi- 
vidual. Tc  update  a  field,  the  data  in  the  field  can  be 
typed  over  with  current  data.  Upon  completion,  each  data 
element  is  read  and  returned  to  its  proper  locaticn  in  the 
appropriate  data  base  file.  Creation  of  new  reccrds  is 
accomplished  in  the  same  manner.  Records  are  deleted  by  a 
single  deletion  commard.  Therefore,  this  ccmmand  usage  is 
limited  tc  avoid  accidental  and  malicious  destruction  of 
data. 

c.  Interfaces 

The  Maintenance  Module  interfaces  with  the 
Command   Determiner   and  the    DBMS. 

d.  Design    D€cisions 

All  data  modifications  are  implemented  using  the 
Maintenance  Module.  The  physical  and  logical  structure  of 
all   data   base   files    is  hidden    from   the   user. 
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17.    IMELEB5NTATI0N 

1.       CONSTRAINTS 
1.       dEASE    II 

Following  is  a  list  of  dBase  II  constraints  that 
affected  the  design  cf  this  system  and  consequently  imposed 
constraints  on  the  i npiementaticn  of  the  Individual  Training 
Record   Management   System: 

a.        No      more   than      65535    records   can     be    used      in  a 

single    data    case   file. 

r.        No    more   than  3  2      fields   can   comprise    any    singla 
record. 

c.  No    more    than   254   characters   can   be   placed    in   any 
cne    field. 

d.  No    more   than    1C00   characters   can   be    placed   into 
any   single    record. 

e.  No      more   than      64    variables      can   be      located   in 
working    storage   at    any   given   time. 

2  .      fiar aware 

following  is  a  list  of  development  hardware 
constraints  that  affected  the  design  of  this  system  and 
consequently  impose  constraints  on  the  implementation  cf  the 
Individual  Training  Record  Maragement  System. 

a.   Main  memory  storage  (RAM)  is  512K. 

t.   Two  double  density  double  sided  disk  drives  were 
used  for  a  total  of  720K  bytes  of  disk  storage. 
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c.        The   IBM   IC   8088      microprocessor   operates    at    u.7 

MHz. 

lo  maximize  the  amount  of  data  that  the  system  main- 
tains, a  EAM  disk  drive  is  created.  This  RAM  drive  allows 
the  program  to  be  copied  into  memory  and  enables  the  full 
use  of  the  two  disk  drives  for  data.  Use  of  the  EAM  drive 
increases  the  speed  of  the  program  by  allowing  the  various 
called  routines  to  te  read  more  quickly  into  the  working 
storage.  The  memory  access  time  for  the  IBM  PC  is  much 
faster  than  disk  access  time.  This  increase  in  speed 
reduces  the  response  time  to  the  user.  The  objective  cf  the 
prototype  is  to  handle  the  data  required  to  maintain  a 
battalicn  sized  unit's  training  records.  The  amount  of 
storage  required  for  800  individuals  is  approximately  two 
megabytes.  This  allows  for  the  overhead  that  the  DEMS  uses 
and  the  room  necsssary  to  execute  functions  that  require  the 
creation  cf  temporary  files.  The  available  storage  in  the 
prototype  system  limited  the  test  dana  base  to  a  company 
sized  unit. 

3  •   Environmental 

The  follcwing  environmental  considerations  ccnstrain 

the  system  by  placing   added  requirements   on  the   ultimate 
design. 

a.  Inexperienced  users 

b.  Frequent   turnover    of    personnel 

c.  Limited   training   time  available 

d.  Hardware  maintenance  must  be  readily  available 
from  outside    ccmmercial   sources. 

e.  Software  Maintenance  is  not  intended  to  be 
performed  at  the  user  level  because  computer 
programming    skills    are   not   necessarily  available. 
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f.  No  unusual  requirements  for  physical  environment 
such  as  smoke  or  dust  free  atmosphere,  unusual  elec- 
trical pcwer  characteristics  or  hookup,  or  vibration 
campeninc,  are  required. 

E.   GENEEAL 

The  cuter  layer  consists  cf  six  separate  modules  divided 
into  three  levels.  This  section  will  briefly  describe  the 
routines  that  make  up  each  mcdule  and  the  system  output  from 
each  routine.  The  listings  of  the  programs  are  in  the 
appendices,    and    can    te   examined    for   further   detail. 

1  -      Ui£l  Waster    Control    Module 

a.      Master    Rcutine     (Master,  prg) 

This  module  ccntrcls  the  sequencing  of  the 
program.  It  is  an  endless  loop  which  requires  the  computer 
to  te  either  turned  off  cr  re-booted  to  exit  the  ITHM 
System.  The  Master  routine  requires  the  user  to  switch 
diskettes.  The      user     receives   a      message     to      physically 

exchange  the  program  diskettes  with  the  data  diskettes.  If 
the  diskette  exchange  is  not  made  or  is  made  improperly  the 
user    is    prompted   again  to   make   the    proper   exchange. 

The  Access  Module  is  initiated  by  the  Master 
Routine  and  if  a  valid  indication  is  returned,  the  Master 
Boutine  will  initiate  the  Command  Determiner  Module.  Once 
the  Command  Determiner  Module  is  exited,  the  Master  Routine 
loops  to  the  beginning  to  receive  a  user  command  to  initiate 
the    Access    Module. 

t.      Pause  Routine    (Pause. prg) 

This  routine  provides  a  time  delay  for  the 
system.  When  this  rcutine  is  called,  it  delays  the  func- 
tioning    of  the      system      for      approximately   thirty      seconds. 
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This   routine   is  used  to   delay   error  messages   that   are 
displayed  fcr  a  short  period  of  time. 

2 .  Access  M odu 1 € 

a.   Access  Routine 

The  Access  Routine  prompts  the  user  for  an  iden- 
tification code.  The  routine  then  instructs  the  DBKS  to 
search  fcr  that  code  in  the  security  data  base  file.  If  the 
code  is  not  found  a  message  is  displayed  and  the  user  can 
try  again.  If  the  cede  is  found  the  corresponding  password 
from  the  data  base  is  stored  in  memory.  The  user  is  then 
prompted  for  the  password.  When  it  is  entered,  if  it  dees 
not  natch  the  password  in  memory  an  error  message  is 
displayed  and  the  user  can  try  again.  If  the  password  that 
the  user  enters  matches  the  password  in  memory,  a  valid  user 
state  is  passed  to  the  Master  Routine  with  a  user  authoriza- 
tion level. 

3 .  Ccmmand  Determiner  Module 

a.  Command  Eeterminer  Routine  (Cmddet.prg) 

The  Command  Determiner  Routine  displays  tc  the 
user  a  menu.  The  user  can  choose  to  initiate  the 
Nonstandard  Report  Generator,  Standard  Report  Generator, 
Eata  Entry  and  System  Functions  (Maintenance),  Help,  or 
Cuit.  The  user  enters  the  appropriate  letter  which  is 
processed  by  a  case  statement  that  initiates  the  selected 
module.  Figure  4.1  displays  the  Command  Determiner  Menu. 

b.  Hslp2  Routine    (Help2.prg) 

The  Help2  Routine  provides  information  to  the 
user  en  the  functions  that  can  be  initiated  from  the  Command 
Determiner  and  the  Maintenance  Module.  The  information  is 
presented      to   the      user     to    help      in      the      selection   of      the 
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Figure   4.1       Command   Deterainer  Menu 

appropriate  module  aid  is  net  designed  to  explain  the  func- 
tioning cf  the  entire  system.  The  systems  built-in  prempts 
walk  the  user  through  the  necessary  steps  to  accomplish  the 
desired   task. 

1 •      Nonstandard    Report    Generator    Module 

a.      Nonstandard   Report   Routine    (Nostdrpt. prg) 

This      module  gives      the      user      an   option      tc     go 
directly   tc     the   report  or    to      view   a   help    module.  If   the 

user  desires  to  go  directly  tc  the  report,  this  routine 
queries  the  user  for  the  first  set  of  attributes  and  attri- 
bute descriptions.  After  the  user's  selecxicns  are 
obtained,  the  routine  searches  the  appropriate  data  base 
files  to  locate  all  records  that  satisfy  the  user  specified 
attribute  and  attribute  description.  Attributes  are  field 
names  such  as  RANK,  COMPANY,  RFLQUAL,  etc.  Dp  tc  three 
attributes  from  any  data  base  files  (the  data  base  file 
location  is  invisible  to  the  user)  may  be  specified  by  the 
user.  Multiple  attributes  are  automatically  joined  by  the 
routine     using      a      legical    "and"      operation.  The      routine 
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employs  a  series  of  case  statements.  For  each  attribute 
selected,  the  attribute  name  is  stored.  Slctdesc.prg  is 
called  which  stores  an  attribute  description  such  as  E5  (for 
BANK)  or  A  CO  (for  COMPANY)  or  EX  (for  RFLQOAL) .  After  the 
user  has  finished  selecting  attributes  and  attribute 
descriptions,  the  routine  identifies  the  correct  database 
files  and  either  creates  a  temporary  file  containing  the 
needed  irfcrmation  cr  ,if  cnly  two  database  files  are 
involved,  primary  and  secondary  files  are  identified.  The 
report  is  then  displayed.  Figure  4.2  depicts  the  sequence 
cf  screen  displays  for  attributes  and  descriptions  of 
"COMPANY  is  A  CO"  .ABE.  "RANK  is  E5"  .AND.  "PLATOON  is  1ST 
PLAT". 


NONSTANDARD  REPCRT  GENERATOR 

LCCATE  ALL  MAFINES  THAT  SATISFY  THE  FOLLOWING; 


<ATTRIBUTE> 


CCMPANY 

IS 

RANK 

IS 

PLATOON 

IS 

<DESCRIPTOR> 

A  CO 

E5 

1ST  PLAT 


PRESS    'ENTER'     TC    CONTINUE 


Pigure  4.2        Attributes   and  Descriptors  Display 


b.      Nonstandard   Help   Routine    (Nostdhlp. prg) 

This  routine  responds  to  the  user's  request  for 
"HELP"  while  in  the  Nonstandard  Report  Menu.  It  displays  a 
brief  explanation  of  the  attribute  and  attribute  description 
process. 
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c.  Select    Attribut€   Rcutine    (Slctarti.prg) 

This  routine  prompts  the  user  to  select  attri- 
butes. After  the  first  and  second  selection  the  ussr  is 
asked  if  h€  wants  tc  select  ancther  attribute  (only  three 
attributes  are  permitted,  therefore  after  the  third  attri- 
bute and  attribute  description  set  have  been  selected  the 
routine   automatically     executes   the   user   request).  If   the 

response  is  yes,  the  selection  procedure  is  repeated.  This 
process  is  continued  until  the  user  answers  no  or  three 
attributes  have  been  selected.  The  routine  locates  the 
appropriate  data  base  files  and  displays  the  NAME,  SSN,  and 
attribute  information  for  each  record  that  satisfies  the 
user's   specified   criteria. 

d.  Select    Descriptor   Boutine    (Slctdesc. prg) 

This  routine  prompts  the  user  to  select  attri- 
bute descriptions.  Each  attribute  description  is  stored 
into  a  memory  variable  for  later  use  when  the  database  files 
are  searched.  An  attribute  description  is  selected  for  each 
attribute. 

5-      Standard  Revert   Generator   Module 

a.      Standard    Report    Routine    (Stdrpt.prg) 

This  routine  generates  the  primary  menu  for 
standard  report  selection  and  stores  the  user's  response  in 
a  memory  variable.  Control  is  then  passed  to  the  appro- 
priate subroutine  tc  obtain  the  necessary  data  from  the 
database.  This      rcutine      will     continue      until      the      user 

responds      with      a      "C"    (QUIT).  Figure      4.3      displays      the 

Standard   Report    Menu. 
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STANDABD  BEPORT  SELECTION 
SEIECT  REPOET  BY  ENTEBING  THE  APPROPRIATE  LETTER 

A. ..UNIT  HOSIER 

B... TRAINING  STATUS  REPORT 

C... TRAINING  ROSTER  REPORT 

D.  ..INDIVIDUAL    TRAINING    RECORD 

E.  ..MARKSMAKSHIP  STATUS  REPORT 
F. ..MARKSMANSHIP  ROSTER  REPORT 
G.  ..MOS    STAIUS    EEPORT 

H.  ..MOS    ROSIER    REPORT 
I...PERSONAI    DATA    BEPCRT 
J.. .EST    STAIDS    REPORT 
K...EST    ROSIER    REPORT 
L...SWIM    QUALIFICATION    REPORT 
B.  ..HELP 

C  ..QUIT 

SEIECI    OPTION   ====>: 


Figure    4.3       Standard   Report    Menu 

t.      Select    Unit   Routine    (Slctunit. prg) 

This  routine  prompts  the  user  to  select  the  size 
and  narce  of  the  unit  (i.e.,  battalion,  company,  platcon)  for 
the  report  generation.  The  user  responds  with  a  letter  that 
corresponds  to  a  user  installed  company  or  platoon 
designation. 

c.  Unit   Roster   Routine    (Unitrost. prg) 

This  is  a  control  routine  which  creates  the 
personnel  roster  fcr  the  unit  specified  by  the  user's 
response   to   the    Slcturit   Menu,  Figure    4.U   displays   a   copy 

cf    the   Personnel   Roster   Report. 

d.  Training   Status    Routine    (Trngstat . prg) 

For  the  selected  unit,  this  routine  calculates 
the  total  number  of  training  elements  completed  for  each 
training      category.         For      example,         the   training      category 
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SAME 
EAKEE,     STEVE    N. 
CAFY,    B.    V. 
CASTIN,    D.     P. 
DCNNELYr    R.     G. 
EF.ESS    'ENTER*    TO    CONTINUE 


UNIT 

RCSTER 

RAKK 

PRIMARY 

MOS 

E4 

031  1 

E5 

031  1 

E1 

0311 

E6 

0331 

Figure    1.1        Personnel   Roster   Report 

"HISICRI"  consists  of  three  training  elements  (A,  B,  C)  .  A 
percent  completed  figure  is  calculated  for  each  training 
element  ty  dividing  the  total  training  elements  completed 
(EX.  ZZAHIS,  ZZBBIS,  Z'ZCHIS)  by  the  total  number  of 
personnel   in  the   unit    (ZZTOTAL).  Both   the   totals    for  each 

element  and  the  percent  completed  -figures  are  shown  (see 
Figure   4.5) . 

e.  Training    Count    Routine    (Cntest.prg) 

This  routine  counts  the  number  of  essential 
subject  training  elements  that  have  been  completed  in  the 
unit    or    subunit    specified. 

f.  Qualification  Ccunt   Routine    (Cntqual.  prg) 

This  routine  saves  all  memory  variables  in  a 
memory  file  (ZZTCTAL)  and  then  counts  the  number  of  persons 
that  have  not  completed  SWIMQUAL,  RFLQUAL,  PSTQUAI  and 
perscr.s   in    the    unit   net   required   to   qualify    (NA)  . 
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TBAINING    STATUS    REPORT 


CCDE    CF   CONDUCT 


KABIKE    CORPS    HISTORY 


CLCSE    CEDER    DRILL... 


42 
80 
43 

73 
82 
66 


PERCENT 
PERCENT 
PERCENT 

PERCENT 
PERCENT 
PERCENT 


46  PERCENT 
64  PERCENT 
79    PERCENT 


COMPLETED  A... 75 

COMPLETED  3 144 

COMPLETED  C 86 

COMPLETED  A 131 

COMPLETED  B. . . 147 

COMPLETED  C. ..  119 

COMPLETED  A... 83 

COMPLETED  B.. . 115 

COMPLETED  C 142 


PRESS    'ENTER1     TC    CONTINUE 


Figure   4.5       Training  Status   Report 

g.      Training   Poster    Routine    (Trngrost .prg) 

This  routine  provides  the  Training  Rcster 
Beport.  It  starts  at  the  top  of  the  Pers.dbf  and  looks  at 
each    reccrd   individually.  If   a   record   corresponds      to   the 

unit  selected  by  the  user,  the  routine  Trngrpt.prg  is  called 
which  ccllecxs  and  displays  the  training  data  that  corre- 
sponds tc  the  current  Pers.dbf  record  (e.g.,  If  the  user 
wants  training  data  en  every  member  of  1ST  PLAT,  A  CO, 
Trngrcst.prg  locates  each  record  in  the  Pers.dbf  which 
belongs  to  1ST  PLAT,  A  CO.  Trngrpt.prg  then  displays  the 
training  data  from  the  appropriate  data  base  files.). 
Information  on  one  individual  is  displayed  in  six  ro«s. 
Ecur  sets  cf  data  are  displayed  per  screen.  The  user 
presses  the  "enter"  key  to  scicll  forward  to  each  succeeding 
screen   display. 
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h.      Training    Foster    Format    Routine    (Trngrpt. prg) 

This      defines        a      coded  report  format      which 

displays   COC,       HIS,       EKS,       COD,       INT,  TAC,  NBC,       PFT1CLSS, 

EFT2CISS,    ONI   and   AIE   for  each    member  of   the  unit    cr   sutunit 
selected. 

i.      Marksmanship  Status   Routine    (Mksstat .  prg) 

This  routine  creates  a  temporary  file  which 
contains  the  current  year  rifle  and  pistol  qualification 
results  for  each  mearer  in  the  selected  unit  or  subunit. 
The  results  are  summed  by  qualification  category  for  the 
rifle  and  pistol.  Percentages  are  calculated  and  displayed 
in  a  summary  status  report  which  is  automatically  displayed 
on  the  screen.  Froc  this  module  a  simple  decision  suppcrt 
submcdule  may  be  called  at  the  discretion  of  the  user.  If 
the  user  desires  to  analyze  his  remaining  rifle  range  quotas 
and  ccmpare  them  with  his  tctal  number  of  range  requirements 
for  the  current  year,  he  may  elect  to  "Analyze  Rifle  Range 
Cuotas"  (See  Quota  Study  Routine  for  a  more  complete 
description.).  Figcre  4.6  displays  the  Marksmanship  Status 
Eeport. 

j.      Convert    Unit  Routine    (C  vr tunit.  prg) 

This  routine  stores  the  name  of  the  company  and 
platccn  selected  (unit  and  subunit)  by  the  user  during 
routine  •Slctunit1.  This  is  necessary  because  when  the  user 
selects  a  unit  and  subunit,  it  is  done  by  menu  selection. 
Accordingly  the  cnly  thing  stored  into  memory  is  the  corre- 
sponding letter  from  the  menu  provided  by  Slctunit. prg  (A, 
E,  C,  E,  E) .  Soie  screen  displays  require  the  unit  name 
(e.g.,    "fl   CC"   vice    "2"   )    so    a   conversion   is   necessary. 
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MARKSMANSHIP    STATUS  PEPORT 

RULE    EXPERT...  U8  PISTOL    EXPERT...  3 

RIFLE    SHARPSHCOTEB...36  PISTOL    SHARPSHOOTER 0 

RIFLE    MARKSMEN...  48  PISTOL    MARKSMEN...  2 

UNQUALIFIED...  16  UNQUALIFIED...  0 

PERCENTAGES 

RIIIE    EXPERT...  32  PISTOL    EXPERT...  60 

RIFLE    SHARPSHOOTER... 24  PISTOL    SHARPSHOOTER 0 

RIFLE    MARKSMEN...  32  PISTOL    MARKSMEN...  40 

UNQUALIFIED...  11  UNQUALIFIED...  0 

PBESS    •ENTER1    TO    CONTINUE 


Figure  4.6        Harksmanship  Status   Report 

k.      Quota   Study   Routine    (Qtastudy.prg) 

The    Qtastudy.prg      and  the      Quotapad.prg    make      up 
the    decision     support  submodule.  This   module      is    used      by 

Mksstat.prg  and  displays  the  range  quotas  that  remain  for 
the  current  year.  The  current  month  is  extracted  frcm  the 
log  cr  date.  The  range  quotas  for  each  unit  are  stored  in  a 
memory  file  during  the  annual  initialization  procedure.  Th* 
appropriate  set  of  range  quotas  for  the  unit  involved  is 
retrieved  and  stored  into  memory  variables.  Summary  infor- 
mation is  provided  concerning  the  relationship  between 
remaining  range  quota  requirements  and  remaining  range  quota 
allocations.  Upon  conclusions  of  the  module  the  user  may 
return  to  the  Standard  Report  Menu  or  to  a  scratch  pad  to 
revise  quota  assign  irents.  Revised  quota  assignments  from 
the  scratch  pad  can  either  be  permanently  saved  in  the  range 
quota  memory  file  cr  ignored.  See  Appendix  B  for  a  mere 
detail€d   description. 
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1.      Quota  Scratch  Pad    Routine    (Quotapad. prg) 

This  module  gives  the  user  an  opportunity  to 
interactively  modify  the  remaining  monthly  rifle  range 
quotas  fcr  his  unit.  This  can  be  done  an  unlimited  numter 
of  times.  Each  tine  the  screen  display  returns  to  the 
actual  nicnthly  allocation  as  base  data.  After  each  itera- 
tion, the  new  set  of  range  quctas  is  totaled  and  compared  to 
the  nunsber  of  rifle  range  quotas  required  by  the  unit  fcr 
the   remainder      of   th€   year.  A    comment   is      displayed    which 

indicates  the  net  result  (scratch  pad  quotas  less  than 
requirements,  scratch  pad  quctas  greater  than  requirements, 
cr  scratch  pad  quotas  equal  to  requirements).  However,  if 
the  user  elects  to  permanently  replace  the  monthly  qucta 
allocation  in  memory,  he  may  dc  so  by  selecting  the  "Replace 
Current   Cuotas"    cpticn. 

m.      Marksmanship  Roster   Routine    (Mksrcst . prg) 

This  routine  creates  a  temporary  file  which 
includes  NAME,  RFLQOil,  RFLDATE,  PSTQUAL,  PSTDATE  fcr  each 
member  in  the  selected  unit  or  subunit.  A  standard  repcr* 
format  (B:Mrksrpt)  is  used  to  display  the  Marksmanship 
Roster   Report    (see    Ficure   4.7). 

n.      MOS    Status   Routine    (Mosstat . prg) 

This  routine  produces  the  MOS  Status  Report. 
Each  type  of  MOS  in  the  specified  unit  cr  subunit  is  ccunted 
and  tctaled,  regardless  of  the  type  or  number  of  different 
EOS • s    in  the      particular   unit    or   subunit.  The    results   are 

then    displayed    by   MOS   and   by  rank    (see    Figure   4.8). 

c.      MOS    Roster   Routine    (Mosrost. prg) 

This  is  a  control  routine  which  creates  the 
Personnel  Roster  for  the  unit  or  subunit  specified  by  the 
user's   response    to    the   Slctunit   Menu    (see   Figure    4.9). 


MARKSMANSHIP    ROSTER    REPORT 

NAME                    RAKK  C*JAL    DATS  QUAL 

EAKER,    SIEVE    N.        E4  100184  EX 

CAEY,    R.V.                    E5  050184  MM 

CASUS,    D.P.               E1  050184  ON 

ECNNELY,    R.W.             E6  DDMMYY  ** 

PRESS    •ENTER1    TO    CONTINUE 


Figure  4.7        Harksmanship  Roster   Report 


MOS     STATCS    REPORT    A    CO,       3RD    PLAT 

MCS  RANK  TOTAL 

0311  E1  8 

0  3  11  E2  12 

03  11  E3  9 

03  11  E4  8 

03  11  E5  3 


Figure  4.8        MOS   Status   Report 

p.      Personnel  Data    Routine    (Persdata. prg) 

This  is  a  contrcl  routine  which  creates  the 
Personnel  Rcster  fox  the  unit  or  subunit  specified  by  the 
user's   response    to    the   Slctunit   Menu. 

q.      Personnel   Data    Format   Routine    (Mosrpt . frra) 

This  defines  a  dEASE  II  report  format  which  has 
already    teen  determined   and    is   stored   in   memory. 
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MOS  ROSIER  REPORT 

NAME       SANK     PRIMARY  SEC 

MOS  MOS 

*  MOS  03  11 

BAKER,    STEVE    N.       EU  0311  0331 

PCILAFE,    R.W.  12  0311  **** 

CABY,    R.  V.  E5  031 1  **** 

PBILLIP,    D.P.  E4  0311  **** 

PRESS    'ENTER1    TO    CONTINUE 


Figure  4.9        MOS   Roster  Report 

r.      EST    Status   Routine    (Eststat. prg) 

This  routine  creates  a  temporary  file  that 
includes  all  essential  subject  and  PFT  fields  from  the 
Est.dtf  for  members  in  a  user  specified  unit  or  subunit. 
From  this  temporary  file  the  routine  counts  the  total  number 
of  unit  members  that  have  completed  all  elements  in  each 
training  category.  The  EST  Status  Report  is  displayed  and 
includes  totals  for  each  training  category  and  the  percent 
completed    (see    Figure  4.10)  . 

s.      EST    Count  Routine    (Cntest.prg) 

This  is  a  short  routine  that  counts  the  total 
training  categories  containing  an  "*"  which  indicates  a 
training  element  has  not  been  completed  (i.e.,  It  counts  the 
number  of  training  categories  that  currently  include  one  or 
more    training   elements   that    have   not    been   completed) . 

t.      EST    Roster  Routine    (Estrost.  prg) 

This  is  a  control  routine  which  creates  the 
Personnel  Rcster  Repcrt  for  the  unit  or  subunit  specified  by 
the    user's    response    tc   the    Slctunit    Menu. 
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EST  STATUS  EEPCRT 


CCDE  CF  CONDUCT.  .  . 
MARINE  CCRPS  HISTCSY... 
CICSE  OEEER  DRILL.  .. 
IN1ERIOR  GUARD. . . 
FIRST  AIE... 

PRESS  'ENTER*  TO  CONTINUE 


42  PERCENT  COMPLETED 76 

84  PERCENT  COMPLETED 151 

39  PERCENT  COMPLETED. . .70 

63  PERCENT  COMPLET ED. . . 1 1 3 

8  PERCENT  COMPLETED 14 


Figure  4.10    EST  Status  Report 

u.   EST  Report  Format  Boutins  (Estrpt.prg) 

This  routine  formats  and  displays  the  EST  Rcster 
Report.   It  is  called  by  Estrcst.prg. 

v.   Swim  Qualification  Routine  (swimqual. prg) 

This  routine  displays  the  Swim  Qual  Report  for 
the  selected  unit  or  subunit.  The  Swim  Qual  Report  consists 
of  each  Marine's  NAME,  RANK,  UNIT,  and  swimming  qualifica- 
tion status.  At  the  end  of  the  report,  summary  data  is 
displayed  which  includes  the  totals  for  each  qualification 
category  and  the  overall  total  for  the  unit  or  subunit. 
figure  4.11  is  a  copy  of  the  Swimming  Qualification  Status 
Report. 

*.   Swim  Report  Routine  (Swimrpt .  prg) 

This  routine,  called  by  Swimqual. prg  counts  and 
stores  the  number  of  personnel  in  the  selected  unit  or 
subunit  that  are  in  each  swimming  qualification  category, 
also,  this  routine  displays  the  NAME,  RANK,  COMPANY  and 
swimmiEg  qualification  for  each  member  of  the  unit  or 
subunit. 
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BAKER-  SIEVE  S. 
SWIM  COAL  S3 

CAEI,  R.V. 
SWIM  CUAL  S2 

PHILLIP,  D.P. 
SWIM  CUAI  WS 


E4 


E5 


E4 


SCKMARY  LATA 


SWIM  CDAIIFICATIOK 

WS 

S'\ 

S2 

S3 

UNCOALIEIED 


PRESS    'ENTER*    TO    CONTINUE 


A    CO 


A    CO 


A    CO 


TOTAL 
3 
36 
54 
49 
36 

-T7B 


Figure   4.11        Swimming   Qualification   Status    Report 

x.      Help   Routine    (Help.prg) 

This   routine      provides   a      functional    description 
of   each   repcrt    listed   in  the   Standard   Report   Selection    Menu. 

6 .      Maintenance    Module 

a.      Maintain   Control   Routine    (Maintain. prg) 

The    Maintain     Control   Routine      produces   a      menu. 

Figure   4.12,        that    allows      the   user      to   select      the   desired 

function.        This      module   restricts   access    when      the    function 

has    a   critical    capability.       Only   the    Data    3ase   Administrator 

(CBA)    and   the  Assistart   DBA    have   access   to   all  functions. 

t.      View  Control  Routine    (Viewitr . prg) 

This  module   queries   the  user    for   the    name    of   the 
individual      whose   training      record   is      to      be   viewed.  The 
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MAINTENANCE  MODULE  MENU 

SELECT  CNE  OF  THE  FOLLOWING  OPTIONS 

V.. .VIEW  INDIVIDUAL  DATA 

t... UPDATE  DATA 

C .CREATE  AN  ITR 

E.. .DELETE  AN  ITR 

£.. .SYSTEM  FUNCTIONS 
H...HELP 
♦C-..QUIT* 

SELECT  OPTION  ===>: 


figure  U. 12   Maintenance  Module  Menu 

routine  controls  the  search  and  creation  of  the  formatted 
screen  that  displays  the  ITE.  The  routine  asks  the  user  a 
series  of  questions  that  can  be  answered  with  yes  or  no. 
This  routine  allows  only  the  data  to  be  displayed  (see 
Eigure  U.  13) . 


57 


>  > 

m    >  > 

z  r 

-  r  r 

.  a  a 

.  q  a 

^£      M  M 

c  —  — 

r  c  c 

a  a 
tn 

c 

O    ••  ID 
Z 

^-       ••  •• 


en 


Z  B  O   • 

r— ,  * 


-J    i 

C 


J5    •• 


d   UJ 


u  r  ••  c 

_    _       ■   LU 


Z   Z  Lr. 

c  a  Lu 
z  — '  Z 
LI  >  Z 

CD  ••    •  >  -*  r<    •  -  "-1  l." 

z  z>t-  —  u  er  a  c 

-■  L-;zL.-.CiCZL 

Z  KILLZIhI 


C 


9  D  c 

z  ^  - 

u 


L  3  c 


LI  c  _ 

Z         L-  -J 

C  _J  C  C 

c  z      z 


a  B  D  c  o  n 

•—«••••      d  u  z  >>  r 

-*>;>;         2  C  Z  —  Z 


r~. 

^_ 

«_ 

■ » 

a 

o 

Z 

3 

**~. 

»    «• 

Q 

>- 

LJ 

LJ 

M 

•"3 

^ 

— 

►"*• 

•  •    * 

J* 

*** 

*— - 

c 

■         M 

* 

•  * 

•• 

■■ 

•• 

•  •                 ■ 

•• 

•r 

:- 

"■ 

m     m 
m      » 
w      a 

B 
a 

•  • 

y^ 

* 

m 

X 

x      a 

s 

•  • 

•• 

• 

•■ 

..     . 

■     •• 

. 

>■ 

•  t 

•• 

M 

mm       * 

•    .. 

UJ 

• 

— ^ 

JT 

«— 

■ 

— 

•• 

•  • 

• 

* — 

•■ 

f 

_ 

r_" 

x. 

\ 

LJ 

"~ 

r~rf 

z 

£ 

l-< 

a  • 

•  • 

__ 

Q 

Zl 

f""j 

E3 

e; 

c 

L'J 

•• 

•  • 

z 

u 

■  • 

q 

C. 

_ 

•  C; 

t: 

mm 

^ 

2; 

i  d 

•    **** 

Q 

& 

Z 

•  LJ 

c 

u 

<— 

i    2 

•  rjj 

00 

■  • 

■  • 

c 

u. 

•  • 

z 

A. 

L. 

•  ~ 

•  • 

• 
• 

_J 

• 

_j 
c 

z 

LJ 

U. 

j  c: 

;  —  , 

•  s 

•  • 

L. 

_ 

Ul 

-  _ 

-J 

C 

z 

•— i 

:  c 

■*    «-J 

•• 

en 

Lu 

i    r**    ^ 

Z 

z 

p* 

Tr 

•  3 

:  z  z 

1  Z. 

• 

•» 

c 

o 

> 

.  z  c 

L    •£ 

z 

-  • 

z 

C 

Z  L 

L" 

^ 

Zi 

-J 

% 

_ 

1  z  - 

.  - 

c 

u 

_J 

— 

LL 

2 

m-+  r 

:  & 

— * 

LJ 

_ 

_ 

1    l_J    t» 

J   — 

z 

_J 

— 

L_ 

■-^  ^, 

-  ii 

.*. 

^■^ 

•  • 

_J 

LI 

"     — 

-* 

^ 

L" 

U 

c 

J  3 

[  ^n 

11 

c 

•— • 

—  1 

— 

— 

l^ 

z  - 

<  z 

3 

— 

— 

_ 

_ 

J  C 

!   Z   L 

•i    — 

«- 

*— 

Cj 

_. 

z 

^ 

/   —  w 

.  u. 

L'J 

£ 

u. 

— 

•   _ 

J  —    _ 

^    uJ 

Z 

B 

M 
O 

-u 

C 
(1) 

a> 
u 
u 
to 

H 

M 


a> 

M 

9 

U4 


58 


c.  ITR  Screen  Format  Routine  (Itrscrn.prg) 

This  routine  produces  the  electronic  ITE  on 
which  an  individual's  data  is  displayed. 

d.  Screen  Data  Retrieval  Routine  (Getdata.  prg) 

The  Getdata. prg  communicates  with  the  DBMS  and 
retrieves  the  data  fcr  a  particular  individual.  It  then 
sends  the  data  to  the  appropriate  position  on  the  screen 
that  corresponds  to  the  ITR  format.  The  DBMS  locates  indi- 
viduals ty  their  SSN.  Four  data  base  files  are  used  to 
create  an  ITR;  Eers.dbf,  Est.dbf,  Qual.dbf,  and 
Infomisc.dbf . 

e.  Comment  Fetrieval  Routine  (Getcmmnt. prg) 

If  unstructured  comments  exist  for  an  indi- 
vidual, the  routine  will  instruct  the  DBMS  to  search  for 
them.  The  comment  information  will  then  be  displayed  en  the 
screen. 

f.  Update  Control  Routine  (Updtitr .prg) 

The  Update  Control  Routine  questions  the  user 
concerning  which  ITR  is  to  be  updated.  The  routine  deter- 
mines if  the  individual  is  in  the  data  base  and  controls  the 
update  of  the  ITR.  The  routine  allows  the  user  to  update  as 
many  ITRfs  as  desired.  The  data  is  displayed  on  the  screen 
in  the  ITR  format  and  allows  a  modified  form  of  full  screen 
editing. 

g.  Data  Update  Routine  (Updata.prg) 

This  routine  requires  the  user  to  type  in  the 
name  of  the  field  tc  be  updated.  The  routine  then  high- 
lights that  field  and  permits  data  to  be  entered.  When  the 
data  has  been  entered  this   routine  initiates  error  checking 
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and  initiates  calculations.    The  data  is  then  stored  in  the 
data  base. 

h.   ITRM  Creation  Routine  (Creat.itr.prg) 

The  creation  of  a  new  ITS  for  an  individual  is 
controlled  by  this  routine.  It  initiates  the  formatting  of 
the  screen  and  controls  the  routine  which  gathers  the  data 
for  the  individual.  The  routine  allows  multiple  records  to 
te  created. 

i.   ITS  Data  Initialization  Routine  (Indata.prg) 

This  routine  initializes  the  data  base  and 
allows  tie  user  to  enter  data  for  an  individual  by  field. 
Once  the  data  has  been  entered  the  module  initializes  error 
checking  and  calculations  that  may  pertain  to  the  data 
fields.  If  unstructured  comments  are  to  be  entered,  the 
routine  controls  this  process.  The  ITR  Data  Initialization 
Routine  instructs  the  DBMS  to  store  the  data  in  the  appro- 
priate data  base  files. 

j.   Data  Error  Checking  Routine  (Error. prg) 

This  routine  performs  the  error  checking  for  the 
system  during  data  entry.  Since  this  is  a  prototype  system, 
error  checking  is  not  extensive.  Dates,  value  ranges,  and 
acceptatle  characters  are  the  limits  of  the  error  checking. 
Dates  are  only  checked  for  limits  in  number  of  months,  days 
in  the  month,  and  acceptable  year  window.  Specific  months 
are  not  matched  to  specific  number  of  days.  The  system  dees 
catch  the  mest  cemmon  errors  caused  by  gross  typing  mistakes 
tut  may  not  catch  slight  errors  if  the  values  are  within 
specified  limits. 
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k.      Calculation   Routine    (Calculat .prg) 

The  Calculation  Routine  performs  the  calcula- 
tions necessary  to  reproduce  training  tables  concerning 
weight/height  standards,  physical  fitness  standards  by  ace, 
rifle  qualification  levels  ,  and  pistol  qualification 
levels.  When    the      information    that      is      needed    for      these 

calculations  has  been  entered  in  the  data  base  the  system 
recalculates  the  related  fields  and  enters  the  new  qualifi- 
cations  in    the    data    base. 

1.      Comment    Update    Routine    (Wrtcmmnt. prg) 

This  routine  finds  the  individual's  comment 
record  in  the  data  base  and  updates  the  information  with  new 
data.      It   then    stores  the  data    back   into   the   data    base. 

m.      Comment    Creation   Routine    (Crtcmmnt .prg) 

The  Comment  Creation  Routine  creates  an  unfor- 
matted comment  record  for  an  individual  in  the  data  base. 
The  comment  record  is  filled  with  asterisks  -hat  will  be 
typed   ever    when    data    is   inserted. 

n.      Delete    ITS   Routine    (Delet itr .prg) 

This  routine  is  limited  to  the  DBA  and  Assistant 
EBA  only.  The  routine  queries  the  user  for  the  name  of  the 
individual  to  be  deleted.  It  then  finds  the  individuals 
ITRM  information  and  displays  the  data  in  ITR  format.  A 
second  verification,  that  this  individual  is  to  be  deleted, 
is  obtained  at  this  time.  The  module  then  delates  the  indi- 
vidual from  all  the  data  base  files.  This  deletion  is 
permanent   and   there    is   no   recovery  of   deleted   records. 
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c.      System    Function    Control    Routine    (System,  erg) 

The  conticl  of  system  functions  is  accomplished 
by  this  routine.  Like  all  previous  routines,  this  routine 
is  menu  driven  (see  Figure  4.14).  The  user  selects  the  menu 
option  that  performs  the  desired  function,  and  calls  the 
appropriate   routine. 


SYSTEM    FUNCTION    MENU 
SELECT    ONE    OF    THE    FOLLOWING    OPTIONS 


I. 
S. 
A. 
Q. 

EKIEF  CJTION  ■«■ 


.INSTALL  SYSTEM 
.SYSTEM  RESET  (YEARLY) 
.ACCESS  LIST  MAINTENANCE 
.COIT  TC  MAINTENANCE  MENU 


Figure  4.14    Systei  Function  Menu 


p.   System  Installation  Routine  (Install. prg) 

Units  in  the  Marine  Corps  often  have  different 
Eames.  The  system  allows  the  D3A  to  name  his  units  to 
correspond  to  the  actual  names  of  the  battalion's  units. 
The  system  also  initializes  the  current  year.  This  informa- 
tion is  then  stored  en  a  file  which  is  recalled  whenever  the 
system  is  functioning. 

q.      System  Reset  Routine  (Sysreset  .prg) 

Training  in  the  Marine  Corps  is  based  en  a 
yearly  cycle  and  reguires  that  individuals  regualify  in 
certain  areas  once  or  more  a  year.  This  routine  resets 
globally   all  the   fields   in  the   data   base  that  must  be 
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regualified  each  yeai.  The  routine  allows  the  DBA  tc  enter 
the  vearly  range  quotas.  The  DBA  can  use  this  routine  to 
update  those  quotas,  tut  this  is  not  recommended.  The  capa- 
bility  also  exists   in   the   Standard   Report   Generators   DSS. 

r.      System    Access  Control    Routine    (Rstaccss. prg) 

The  DBA  must  be  atle  to  change  the  access  list 
ty  deletions  or  additions.  This  routine  displays  a  menu, 
(Figure  4.15)  that  gives  the  DBA  options  to  choose.  This 
routine  gives  the  DEfl  the  ability  to  manage  access  tc  the 
system  and  maintain  a  list  of  users.  It  is  not  recommended 
that  the  EEA  keep  a  printed  copy  of  this  list  unless  it  is 
in  a  secured  environment.  The  system  will  list  each  user, 
user  identification  cede,  user  password,  and  authorization 
level . 


SECURITY    ACCESS    LIST 
CHCOSE    CETION    TO    EE    EXECUTED 

I. ..LIST    ALL    USERS 
A.. . AID    TO    ACCESS    LIST 
D...DEIETE    FBCM    ACCESS    LIST 
Q...QUIT    TO    SYSTEM    FUNCTION 

ENTER    OPTICN    ====>: 


MENU 


Figure    H.15        Access  Function   Menu 
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V.  CGHCIOSION 

1.   GENEEA1 

The  thesis  concept  statement  is  written  in  general  terms 
and  therefore,  is  subject  to  qualitative  evaluation  only. 
This  approach  is  intended  for  the  following  reason.  During 
the  conception  phase  cf  the  project,  we  had  only  a  vague 
intuitive  "feel"  for  such  things  as  reasonable  system  costs, 
acceptable  response  times,  operator  training  requirements, 
and  the  ultimate  "user  friendliness"  that  could  be  achieved. 
Because  functional  requirements  are  not  well  defined  at  this 
point,  an  attempt  to  impose  stringent  quantitative  standards 
is    premature.  Furthermore,      quantitative   goals      shift   the 

emphasis  toward  achieving  system  efficiency  and  away  from 
defining  system  effectiveness.  In  other  words,  the  purpose 
cf  this  thesis  is  tc  prove  a  general  concept  through  the 
development  of  a  working  prototype.  The  general  concept 
includes  simplicity  cf  operation  and  maintenance.  System 
efficiency  is  not  a  significant  consideration.  The  reader 
will  notice,  however,  that  system  specifications  are  defined 
using  quantifiable  objectives  where  feasible,  the  distinc- 
tion being  that  the  system  requirements  determined  by  the 
user  may  not  be  satisfied  by  the  first  generation  prototype. 
As  the  user  becomes  more  familiar  with  the  capabilities  of 
the  system,  requirements  will  become  more  clearly  defined. 
With  this  approach  the  overall  system  concept  may  be  valid 
while  seme  system  requirements  have  not  yet  been  attained 
(i.e.,    in   the   first    ceneraticn    prototype). 


64 


E-       SISTFM    SPECIFICATIONS    (FUNCTIONAL) 

All      system    specif icati ens,        except      those   referred     to 
telow,    heve   been   satisfied    by   the   prototype. 

1 .      St cracje    Limitations 

The  prototype  cannot  adequately  handle  the  specified 
600  records  .  The  limiting  constraint  is  available  storage. 
All  system  software  resides  en  four  double-sided,  double- 
density  5  1/4  inch  floppy  disks  (360k  bytes  each).  The 
first  twe  disks  are  program  disks  which  are  stored  directly 
into    BAM   memory.  The   second    two   disks   contain      all   of   the 

data  rase  files.  Tata  base  files  are  read  into  working 
storage  enly  when  they  are  ceirg  used  by  the  system.  Each 
Harine  in  the  data  base  requires  approximately  550  hytes  of 
data  (or  4.4k  bits).  Due  to  the  DBMS's  required  overhead 
the  prototype  can  accommodate  approximately  180  Marines.  In 
order  tc  achieve  the  specification  requirement  of  800 
Marines,  a  storage  device  capacity  of  two  megabytes  or  more 
is   required    (e.g.,    hard   disk   drive). 

2 •      Betrieval  Liuitations 

All  standard  reports  can  be  retrieved  by  unit  or 
subunit.  However,  the  standard  report  does  not  include  the 
facility  tc  retrieve  data  by  other  user  defined  attributes 
This  facility  is,  however,  included  in  xhe  nonstandard 
report.  The  nonstandard  report  may  include  up  to  three  user 
defined    attributes    and   attribute    descriptions. 

C-       SISTFM    SPECIFICATIONS    ( BON-FONCTIONAL) 

1 .      Training 

Most  of  the  ncn-f uncticnal  specifications  relate  to 
the      operator      training      effort   required      to      implement      the 
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system.   It  is  our  judgement  that  the   prototype  satisfies 
these  requirements. 

2 •   £££££  Checking 

Operator  input  is  range  checked,  data  type  checked, 
and  checked  for  field  length  (characters  in  excess  of  the 
maximum  field  length  are  truncated) .  In  a  fully  implemented 
system  error  checking  would  be  expanded  and  diagnostic  error 
messages  sent  to  the  user. 

-•   X§fcle  Mapping 

Mapping  of  rifle,  pistol  and  ?FT  scores  into  quali- 
fication categories  is  invisible  to  the  user.  In  addition, 
a  weight  control  tatle  is  embedded.  When  an  individual's. 
height  and  weigh  are  entered  the  weight  control  table  is 
referenced.  If  his  weight  is  in  excess  of  allowable  stan- 
dards fci  his  height,  he  is  automatically  assigned  tc  the 
"weight  control  program"  by  assigning  a  boolean  variable  of 
"T"  tc  the  weight  control  field  in  his  training  record. 

D-   SUBSEQUENT  SISTEfl  DEVELGIHENT 

The  next  step  in  the  development  of  the  system  is  to 
place  the  system  intc  the  hands  of  the  user  to  accomplish 
the  fcllcwing  objectives: 

a.  Cefine  user  training  requirements; 

b.  Achieve  user  familiarity; 

c.  Evaluate  and  quantify   existing  functional  require- 
ments ; 

d.  Define  additional   quantifiable  functional  require- 
ments; 
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e.   resign  and  develop  second  generation  prototype  tased 
en  new  set  of  user  defined  functional  requirements. 

E.   SOMMIBI 

The  objective  of  the  Thesis  was  to  prove  the  feasibility 
of  a  concept.  It  is  reasonable  to  conclude  that  the  concept 
has  been  prcven  through  the  design,  the  implementation,  and 
the  demonstration  of  a  working  prototype. 
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DATA    ELEHENT    DICTIONARY 

All  cata  elements  that  exist  in  the  individual  training 
data  nanagement  system  are  contained  in  one  of  seven  data 
tase    files.  The   orly    exception      is   the   data      element   SSN. 

SSN  is  a  key  field  field  and  is  therefore  included  ir.  The 
record  structure  of  multiple  files.  The  following  informa- 
tion   is    used  to    describe   each    data   base    file: 

1.       HELD 

Each  data  element  belongs  to  a  specific  field  within  the 
record  structure.  Fields  are  numbered  sequentially.  For 
example,  field  03  in  the  data  base  file  called  Pers  is  the 
data  eleirent  named  Rank. 

£.   NAME 

Each  cata  field  has  a  unique  name  which  always  refers  to 
that  specific  information  that  is  contained  in  the  data 
field  (example;  PrimeMOS  contains  the  primary  MOS  of  each 
member  in  the  data  base). 

C.   1IPE 

Each  data  field  is  defined  to  be  one  of  three  pcssible 
data    types: 

1.  Character  (C) 

2.  Numeric  (N) 

3.  logical  (L) 
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C.       1IDTE 

Ihis  characteristic  describes  the  maximum  length  cf  the 
data  field.  Information  in  the  data  field  may  net  exceed 
the  numter  of  spaces  that  have  been  set  aside  fcr  that 
particular  field  (all  characters  and  blanks  are  included 
when   counting   the   number  of    spaces   in   a    field)  . 

E.       DESCEIPTION 

This  column  contains  a  narrative  description  of  the 
field.  In  many  instances,  examples  (Ex.)  are  used  to 
describe   the  structure   of  a    typical    data   element . 

J.       EATA    EASE    FILES 

1 •      i§££    (Personnel) 


Field 


NaiTS 


Type    Sidth 


01 
02 

SSN 
Name 

C 
C 

09 
30 

03 
OU 

Bank 
Erimemos 

c 

c 

02 
04 

05 
06 
07 

Secnios 

Company 

Platoon 

c 
c 

c 

04 
06 
09 

08 

Joirdate 

c 

06 

09 

EAS 

c 

06 

10 
11 

Erthdate 
Comment 

c 

L 

06 
01 

12 
13 
1U 

Height 
Weight 
itccnt 

c 
c 

L 

02 
03 
01 

15 

Gasmask 

c 

01 

Description 

Ex.  240707765 

Last  name  followed  by  a 

comma.  First  name  anc  Middle 

Initial.  (Ex.  Smith.  Jack  E.) 

Pay  grade  (Ex.  E2,  01) 

Primary  Military  Occupational 

Specialty  (Ex.  0311) 

Secondary  MOS 

Ex.  A  CO.  HHS  CO.  A  BTSY 

Ex.  1ST  PLAT,  GUN  PLAT,  WPSN 

PLAT,  HDQTRS 

The  date  (DDMMYY)  member 

joined  the  unit. 

Expiration  of  Active  Service 

(DDMMYY) 

Da-ce   of   birth    (DDMMYY) 

A    boolean    variable    (F/T)    fcr 

which   T   indicates    that    a 

comment    record   exists. 

Individual's   height    in    inches 

Individuals   weight   in    pounds 

A    boolean   variable    (F/T)    fcr 

which    T   indicates    that    the 

individual   is   on   weight 

control. 

Gas   mask   size    (S,    M,    L) 
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2-   JST  (Essential  Subjects  Testing) 


Field    Kane     Type  Width 

01  SSN        C     09 

02  COC        C     03 


03 


15 


16 


HIS 


BKS 


1AC 


03 


04 

COC 

C 

03 

05 

INT 

C 

03 

06 

aiE 

c 

11 

07 

CNI 

c 

03 

08 

EFT1RAW 

N 

03 

09  EFI1DATE  C  06 

10  EFT1CLSS  C  01 

11  EFT2RAW  N  03 

12  EF12DATE  C  06 

13  EFT2CLSS  C  01 

14  NBC  C  06 


06 


05 


contains  an 
raining 


Description 
EX.  240707765 
Cede  of  Conduct 
entry  for  each 
element  (A,B.C) . 
History  of  the  Marine  Corp 
contains  an  entry  for  eacn 
training  element  (A,B.C). 
Close  Order  Drill  contains 
entry  for  each  training 
element  (A,B,C) . 
Interior  Guard  contains  an 
for  each  training 


an 


entry  f 
element 


.  <A,B,C)  . 

id  contains 


I 


First  Aid  contains  an  entry 
for  each  training  element 

A,B,C,D,E,F,G,H,I,J,F)  . 

quipment  &    uniforms  contains 
an  entry  for  each  training 
element  (A- B, C) . 
Includes  the  numeric  sccre 
for  the  first  annual  physical 
fitness  test  (RANGE: 00-300) . 
Date  of  first  physical 
fitness  test  (DDMMYY) . 
Results  of  first  physical 
fitness  test  (1,2, 3, U) . 
Includes  the  numeric  score 


for  the  second  annual 
physical  fitness  test 
D0£300)  . 

Date  of  the  second 
fitness  test. 
Results  of  second 
fitness  test  <1,2, 
NBC  contains  an  entry 
each  training  element 
DrEfP)  •   ,  . 
Marksmanship  contains 
entry  for  each  training 
element  (A,B  ,c  ,D, S.F)  . 
Individual  Tactical  Measures 
contains  an  entry  for  each 
training  element  (A,B,C,E,E) 


(RANGE: 

physical 

hysical 
,0). 

for 

(A,B,C, 

an 


3-      £021    (Qualifications) 


Field 
01 
02 

Naire           Type 
SSN                 C 
SfclMQUAL      C 

Widt 
09 
02 

03 

04 

SWIMDATE 
FFLSCORE 

C 

c 

06 
03 

05 

PFIQOAL 

c 

02 

06 
07 

BFLCATE 
EST  SCO  RE 

c 
c 

06 

03 

08 

ESTQUAL 

c 

02 

09 

ESTEATS 

c 

06 

Description 
EX.  240707765 

Swimming  Qualification  (WQ, 
S 1 ,S2r  S3)  7 

SWIMQUAL  date  (DDMMYY) . 
Numeric  rifle  score  (RANGE: 
000-250) . 

Rifle  Qualification  (EX,SS, 
MM,  UN)  . 

Date  Of  RFLQOAL  (DDMMYY) . 
Numeric  pistol  score  (Range: 
000-300) f 

Pistol  Qualification  (EX,SS, 
MM, UN)  . 
Date  of  PSTQUAL  (DDMMYY)  . 
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4  •   ?M?C&ESC  (Inf  ormati on  Miscellaneous) 


Field 
01 
02 

Nan€ 

SSN 
EIECWAfi 

Type 
C 

c 

sidt 
09 
06 

03 

CLEWTHR 

c 

06 

04 

1AWWAR 

c 

06 

05 

EOS 

c 

04 

06 

LDRSHP 

c 

06 

07 

DRUG 

c 

06 

08 

ALCOHOL 

c 

06 

09 

HUM  EEL 

c 

06 

10 

EERSAFFR 

c 

06 

11 

LCHJ 

c 

06 

12 

CHRMORED 

c 

06 

F) 

5-   SECURITY  (Access  In f oraation) 


Description 
EX.  240707765 

Electronic  Warfare  contains 
an  entry  for  each  training 
element  ( A, B,C,Df E, F) . 
Cold  Weather  Training 
contains  an  entry  for  each 
training  element  (A,B,C,D,E, 

F>  •  * 

Law  of  War  contains  an  entry 

for  each  training  element  (A, 

B,C,D,Ef  F),  . 

MOS   Training   contains    an 

entry  for  each  training 

element  (A,B,C<D). 

Leadership  Training  contains 

an  entry  for  each  training 

element  (A, B  ,C  ,Df E ,F)  . 

Drug  Abuse  contains  an  entry 

for  each  training  element  (A, 

B-C,  D,  E,  F)  . 

Alcohol   Abuse    contains   an 

entry   for    each   training 

element  (Ar B  ,C  ,D, E ,F)  . 

Human  Relations  contains  an 

entry  for  each  training 

element  (A, B,CrD, Er F) . 

Personal  Affairs  contains  an 

entry  for  each  training 

element  (A, B  ,C  ,D,E ,F)  . 

UCMJ  contains  an  entry  for 

each  training  element  (A,B,C, 

D.E,  F)  . 

Character  and  Moral  Education 

contains  an  entry  for  each 

training  elements (A  ,B ,C,D,E, 


Field 
01 

Naire           Type 
USE  RID            C 

02 

CSEEPASS      C 

03 

SUTHLEV         N 

04 

NAME                 C 

Width      Description 

05      Numeric  code  that  uniguely 

identifies  each  user. 
08       Alphanumeric  code  that 

uniquely  identifies  each 

user . 
01      Numeric  code  that  defines 

authorization  level  for  each 

user . 
15      Alphanumeric  that  identifies 

the  user. 


CCMMENTS  (Non-formatted  Information) 


ield 

Naae          Type 

Width 

01 

SSN                 C 

09 

02 

INFCTXT1       C 

25 

03 

1NFCTXT2      C 

25 

04 

INFCTXT3       C 

25 

05 

INF0TXT4      C 

25 

06 

INFCTXT5       C 

25 

07 

INFCTXT6       C 

25 

Description 
EX.  240707765 

Unstructured  comments 

Unstructured  comments 

Unstructured  comments 

Unstructured  comments 

Unstructured  comments 

Unstructured  comments 
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08 

INFCTXT7 

C 

25 

09 

INFOTXT8 

c 

25 

10 

INFCTXT9 

c 

25 

11 

3NFCTXT0 

c 

25 

Unstructured 
Unstructured 
Unstructured 
Unstructured 


comments, 
comments, 

comments 
comments 


APPENDIX  B 
DECISION  SOIEORT  SYSTBM  (DSS)  DESCRIPTION 

1.   BACKGROUND 

The  management  of  training  records  includes  many  routine 
tasks  that  are  repetitious  and  highly  structured.  Many  of 
these  tasks  incorporate  low  level,  well-defined  or  semi- 
structured,  independent  decision  making  processes. 
Heretofore,  these  tasks  have  been  manually  implemented  at 
the  ccst  cf  many  manhcurs,  and  sometimes  decisions  have  been 
nrade  without  making  the  best  use  of  available  information. 
Too  often  the  result  has  been  wasted  effort,  frustration, 
and  incorrect  decisions. 

E.   PDBPCSE 

The  purpose  of  this  submodule  is  to  demonstrate  the 
application  of  a  "first  generation"  prototype  DSS  that  will 
achieve   the   following: 

a.  Demonstrate  typical     capabilities      cf      DSS    in      the 

training  management   environment. 

t.  Demonstrate  the  small  knowledge  base  necessary  to 
implement    a    properly   designed  DSS. 

c.  Serve  as  a  "functioning  prototype"  to  gain  early 
user  support  and  experience  in  order  to  further  refine 
sjstem    requirements. 

C.       ICNCTIONAL    DESCRIPTION 

The  CSS  element  cf  the  software  system  product  is  imple- 
mented  in   the   "Marksmanship    Status      Report"   routine    which   is 
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called  ty  the  "Standard  Report  Generator".  When  the  user 
selects  the  "Marksmanship  Status  Report"  from  the  "Standard 
Report  Menu"  the  DSS  submcdule  is  implemented.  The  CSS 
submcdule  performs  the  following  functions  at  the  company 
level : 

a.  Calculates  and  displays  a  current  "Marksmanship 
Status    Report"    which  includes: 

(1)  A  summary  of  rifle  and  pistol  current  year 
iequalif icaticn  data  (number  of  experts,  sharp- 
shccters,   marksmen,    and   unqualified). 

(2)  The  total  number  cf  persons  that  have  fired  for 
qualification  during   the   current    year. 

(3)  The  percent  of  experts,  sharpshooters,  marksmen 
and  unqualified  shooters  based  on  the  total  numter 
cf  people  tlat  have  fired  for  qualification  during 
the   current    year. 

b.  A  company  rifle  range  quota  analysis  may  then  be 
performed  at  the  user's  discretion.  This  routine 
includes  the   following    functions: 

(1)  Calculates   and    displays   a   range   quota    analysis. 

(2)  The    following  summary   information   is    displayed: 

(a)  Total  number   of    Marines   fired   for   qualifica- 
tion during   current    year. 

(b)  Total  number   cf    Marines    fired    for    qualifica- 
tion during   current    year,    but    failed   to   qualify. 

(c)  Total   number   of    Marines   net   required   to   fire 
for    qualificaticn   during   the   current    year. 

(d)  Total     number   of    Marines   to     qualify    before 
the    end    cf   the    current   year. 

(3)  A  chart  is  displayed  which  shows  the  menths 
remaining  in   the  current    year,        the   number   cf   range 
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quotas  allocated  for  each  month,  and  the  total 
number  of  rifle  range  quotas  that  remain  for  the 
current    year. 

(4)  As  appropriate,  cne  of  the  following  elements  of 
infcrmation    is   displayed: 

(a)  Additional    quota   requirements   for   the    year 

(b)  Excess  quotas   allocated   for  the   year 

(c)  Quota  requirements    (number   of   person   left   to 
qualify)    equal    quota   allocations. 

c.  User's  nay  manipulate  allocations  on  a  scratch  pad 
tc  visualize  different  ccmbinations  cf  monthly  quota 
allocations  or  to  determine  their  effect  on  end  of  year 
results  (the  objective  is  to  manage  quotas  so  that  quota 
requirements  equal  quotas  allocated) .  If  desired,  a  set 
of  "scratch  pad"  range  quotas  can  permanently  replace 
the  unit's  range  quota  allocations  for  the  remainder  of 
the  current  year.  If  this  option  is  elected  all  subse- 
quent calculations  will  te  based  on  the  "new  set  of 
range    quota    allocations". 

E.       USEE'S    VIEW 

1  .      Summary    Information 

Eecisicn  making      is    supported      by   providing      summary 
information   for      the   company.  This    snapshot      of   a      unit's 

current  marksmanship  status  demonstrates  the  degree  cf 
success  cf  the  unit's  marksmanship  training  program.  By 
comparing  this  summary  to  unit  marksmanship  objectives  the 
system  can  te  used  as  a  control  mechanism.  The  following 
types   of   decisions    can   be   supported: 

(1)  Evaluate  marksmanship  training  program  for  weak- 
nesses as  indicated  by  unsatisfactory  qualification 
results    to    date. 
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(2)         Evaluate      unit      qualification      objectives      for 
feasibility. 

2  •      Sotcort   De£th 

Eecision  making  is  supported  at  many  levels  from  the 
platccn  cr  company  training  NCO  to  the  battalion  operations 
officer. 

3 •      Int  erdependence 

Interdependent  (sequential  and  pooled)  decisions  are 
supported.  For  example,  if  cne  company  permanently  changes 
rifle  range  quota  allocations  this  decision  is  captured  by 
the    system   and    reflected  in    any   subsequent    analysis 

**  •      jjestrictions 

Due  to  the  overriding  system  requirement  fcr  limited 
user  training  all  processes  are  menu  driven.  This  restricts 
the      degree   of      user    control      and   flexibility.  This   is      a 

significant  compromise    which   reduces      its    effectiveness   as   a 
ESS. 

1.       BOILEER'S    VIEW 

1 .  Eialogue 

The  dialogue  subsystem  (implemented  in  dBase  II) 
creates  the  user's  view  as  discussed  above.  It  performs  all 
necessary  data  base  functions,  extracts  and  processes 
summary   infcrmaticn. 

2 .  Mod  ell  in.g 

The  model  base  subsystem  includes  the  mathematical 
and  process  models  necessary  to  use  the  "scratch  pad"  utili- 
ties, for  example,  a  model  file  is  constructed  in  memory 
for  each   unit  which  has  allocated  quotas.    Quotas   can  be 
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selectively  extracted,  compared,  permanently  changed  by  the 
user  (provided  the  user  has  the  appropriate  system  access 
authcrizaticn)  .  Models  are  not  integrated,  but  each  model 
is  fully  integrated  with  the  DBMS  through  -che  guery 
language-  Integration  of      mcdels   is      a    desirable      feature 

(e.g.,  battalion  should  have  the  capability  to  total  the 
quotas  of  all  companies  on  a  monthly  basis  or  on  a  remaining 
current  year  basis)  and  could  be  implemented.  This  is  the 
type  cf  added  requirement  that  should  be  defined  by  the  user 
during   operation   of   this   "first   generation"    prototype. 

F.       CCNTFNTS   OF    KNOWLEDGE    BASE 

Data  Base  files  (DBF)  contain  qualification  status  of 
each  member  for  the  current  year  and  members  not  required  to 
fire    for   qualif icaticc   during   the   current    year. 

Memory  files  (MIC)  containing  rifle  range  quotas  for 
each  company  are  stored  in  separate  memory  files  (see  Figure 
B.lfcrexaiple). 


r  — 

C0RNGQ1A. 

MEM 

VARIABLE 

NAME 

VALUE 

QJAN 

_ 

25 

QFEE 

25 

OMAR 

25 

QAPB 

25 

QMAY 

50 

QJU* 

50 

QJOI 

50 

QAOG 

50 

QSEF 

00 

QOC1 

00 

QNOV 

00 

QDEC 

00 

Figure  B. 1        Memory   File 
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ITRS    HASTES   CONTBCL    MODULE    LISTING 


1.       MISTER    BOOTIHE 

*  Routine   Name:    Master.prg 

*  Modal*    Naite:    ITSS    Caster    Control    Module 

*  Version:    1.0 

*  Author:    D.P.    Haeusler 

*  Date:    28   Oct    83 

*  Variables   Used:    Thru,    Valpass 

*  Variables   Modified:   None 

*  Variables  Created:    Kone 

*  Variables   Released:   None 

*  Files    {opened/closed)  :    None 

*  Temp   Files  Created:   None 

*  Using    Subroutines:    Rone 

*  Description:    This    is   the    routine   that   controls    the    flew 

*  of    the    program.      This   routine   is   an    endless   loop   which 

*  requires   the   user    tc   turn    the   computer   off   in   order   to 

*  enter   another    system.      This   routine   does   not   allow   the 

*  users   to    directly    enter  the   DBMS,    the   general   intent    is 

*  to    iiake   the   DBMS    completely   transparent    to   users.    Some 

*  house    keeping    is    dene   to    insure   that   the    proper   disks 

*  are    in   place.      This  occurs   by   reading   stored  files   on 

*  the    disks   and   then    checking   the   values.      The   system    will 

*  net   continue    until 1   the   disks   are    in   the    proper    drive. 

SET    CCNSCLE    ON 
SET    TALK    OFF 
SET    ESCAEE    CFF 

STORE    T    10    AAENDLES 

STORE    F    10    SWITCH 

CO    WHILE    .NOT.     SWITCH 

ERASE 

3    9.25    SAY    "    REMOVE    DISKETTES    FROM    THE    DRIVES" 

a     10,25    SAY    "    PLACE    'A*     CATA    DISK    IN    DRIVE    'A'" 

5)     11,25    SAY     "    PLACE    'B'     DATA    DISK    IN     DRIVE    ,B"' 

a    23,25    SAY    "*****    PRESS     ANY    KEY    TO    CONTINUE    *****" 

SET    CCNSCLE    OFF 

WAIT 

SET    CCNSCLE    ON 

RESTCEE    FROM    A:MEKCISK    ADDITIVE 
ENDDC 
DO    WHILE    AAENDLES 

ERASE 

a     10,27    SAY    "    UNITED    STATES    MARINE    CORPS" 

a     11,23    SAY     "    INEIVIDUAL    TRAINING    RECORD    SYSTEM" 

a     12. 34    SAY    "  (PROTCTYPE)  " 
CO    PAUSE 

a    23.23    SAY    "*****    PRESS     ANY    KEY    TO    CONTINUE    *****" 
SET    CCNSCLE    OFF 
fcAIT 

SET    CCNSCLE    ON 
DO    Access 

EESTCEE    ERCK    A:MEMDISK    ADDITIVE 
STORE    F    10    SYSDATE 
CO    WHILE    .NOT.     SYSDATE    .AND.    AAVALPAS 

ERASE 
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AC 
IF 


EL 


EN 
ENDDO 
BELEA 
IF    A  A 

DO 
ENDIF 
STORE 
ENDDC 


11,24 
CEFT    " 
VAL  1$ 

<    13 

STCRE 

STCEE 

SE 
IRASE 
3  8,2 
3  9,2 
SE1  C 
WAIT 
SET  C 

EIF 


SAY    "ENTEF    TODAY'S    DATE" 

DATE     (DDMMYY)     ===>    ™    TO    SYSDAY 
<SYSDAY,1  ,2)  )     <    32    .AND.     VAL  (  $  IS  YS  DAY  ,  3  ,  2) 
.AND.    VAL  ($(SYSDAY,5,2)  )     =CRNTYR 

SYSDAY    TC    AADATE 

T    TO    SYSCATE 


4    SAY    "IMIBOFER    DATE — REENTER" 

4    SAY    "**FRESS    ANY    KEY    TO    CONTINUE**" 

CNSOLE    OFF 

CNSOLE    ON 


SI    ALL    EXCEPT    AA?????? 
valcas 
Cmddet 

T    TO    AAENDLESS 


79 


B.   PiOSI  RCOTIHE 

*  Routine  Name:  Pause. prg 

*  Module  Nana:  I1RS  faster  Control  Module 

*  Version:  1.0. 0.0. 1 .0 

*  Authcr:D.E.  Hasusler 

*  Date:  30  Nov  83 

*  Variables  Used:  pause 

*  Variables  Modified:  pause 

*  Variables  Created:  pause 

*  Variables  Released:  pause 

*  Files  (opened/closed)  :  none 

*  Temporary  Files  Created:  none 

*  Using  Subroutines:  Access. pro,  Maintain. prg ,  Master. prg 

*  Description:  This  routine  creates  a  delay  while  a  message 

*  is  being  displayed. 

STORE  1  TO  pause 
DO  WHILE  pause  <  75 

STORE  pause  ♦  1  TC  pause 
ENDDC 

BELEASE  pause 
EET0EN 
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APPENDIX    D 
ACCESS    HODDIE    LISTING 


1.       ACCESS    ROUTINE 

*  Routine    Name:    access. prg 

*  Module   Name:    Access  Module 

*  Version:    2.0 

*  Author:    E.P.    Haeusler 

*  Date:    28    Cct    8  3 

*  Variables   Used:    aavalpass.    password,    idnum,    validid, 

*  counter,    thru,    pause,    passrec,    aalevel 

*  Variables   Modified:  thru,    aavalpass,    validid,    idnum, 

*  password,    counter,    pause,    passrec, 

*  aalevel 

*  Variables  Created:  aavalpass,  password,  idnum,  validid, 

*  counter,  pause,  thru,  passrec, 

*  aalevel 

*  Variables    Released:    counter,    pause,    passrec,   validid, 

*  thru 

*  Files     (opened/ closed) :    a: security    (opened/closed) 

*  Temporary  Files  Created:    none 

*  Using    Subroutines?    Easter 

*  Description:    This    routine    conducts   the    logon   procedures 

*  to    gain   access  into   the   svstem.      The   routine  will   guery 

*  the   user    for    a   user   ID   and   a   Password,    after  three 

*  incorrect   responses   the   session   will    be   terminated. 

*  BEGIN   Access 

STORE    f  TO  thru 

STORE    f  TO  AAvalpas 

STORE    ■  "    TO    password 

STORE    "  "    TO   idnum 

STORE    f  TO  validid 

STORE    0  10  counter 

CO    WHILE    .NOT.    validid    .AND.    .NOT.    thru 

ERASE 

3     12,25    SAY    '■    ENTES    ITRS    USER    NUMBER    OR    " 

9     13,25    SAY    "    'QUIT'    TO    TERMINATE    SESSION    " 

ACCEPT    "  ENTER    USER    NUMBER    ====>    "    TO    idnum 

SICRE    !  (idnum)    TO    idnum 

IE    idnum    =    •QUIT' 

STCRE    t   TO    thru 
EISE 

IRJSE 

USE    A:SECURITY    INDEX     A:SECINDX 

EINC    SIDNUM 

IF    #    =   0 

USE 
EL  CE 

'STORE    TRIM     (USSRPASS)     TO    PASSREC 
STCRE    AUTHLEV    TO    AALEVEL 
STCRE    T    TO    VALIDID 
ENEIF 
ENEIE 
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IF  . 
S 
E 

a 
a 

D 
ELSE 

I 

E 
ENEI 


IF 


validid    .AND.    .NOT.    thru 
counter+1   TO   counter 


NCI. 

TCEE 

RASE 
15,25    SAY 
17,  25    SAY 

C    pause 


AND.     COUNTER    <>    2 


"INVALID    ESEF    NUMBER" 
"     CKECK    YOUR    NUMBER    " 


F  .NOT, 

STORE 
NEIF 
F 


VALIDIE  .AND 
CCUNTEE+1  TO 


.NCT.  THRU 
COUNTER 


AND.    COUNTER    =    2 


counter 
STCRE    t 
ERASE 
a    12,20 
a    13,20 

a   14,20 

ENEIF 


=    3 

TO  thru 

Say  "*********************#**************** '" 
say  "4*4******  terminate  access  ************ 
SAY    «***********************************#**•» 


ENDEC 

STORE    0    10    counter 

EO    WHILE    .NOT.     AAvalpas    .ANE.     .NOT.    thru 


ERASE 


a 
a 
a 

a 


"7,25    SAY 
8,25    SAY 
11, 18    SAY 
14,25    SAY 


ENTER    YOUR    PASSWORD       OR    " 

•QUIT1    TO   TERMINATE   THE    SESSION" 

"    THE    PASSWORD    WILL    NOT    BE    DISPLAYED 

"    ENTER    PASS  WORE    ====>    » 


SET    CCNSCLE    OFF 

ACCEE1    "    ENTER   PASSWORD    ==>    "    TO   password 

SET    CCNSCLE    ON 


IF 

S 
ELSE 

IF 


♦  (password)    =     »CUIT' 
STCRE    t   TO   thru 


!  ( 

ST 
ELSE 
IF 


:asswcrd)     =   passrec 
IRE    t    TO    AAvalpas 


DO 
ELSE 

STORE 
ENEIF    3 
ENEIF    2 
ENEIF    1 


COUNTER    <>    2 
STORE   counter+1 
ER  AS  E 

3    12,25    SAY    "    INVALID 
3    14,25     SAY    "    CHECK 
pause 


TO  ccunter 


PASSWORD  " 
YOUR  PASSWORD" 


COUNTER+1     TO    COUNTER 


IF 


EN 

ENDDC 
BELEA 
RETUR 


counter 
STCRE  t 
ERASE 
a  12,20 
a  13,20 
a  14,20 
EIF 


TO'thru 

SAY  »**************************************" 
SAY  "***********  TERMINATE  ACCESS  *********** 
SAY    «**************************************" 


SE 
N 


counter,    pause,    passrec,    validid,    THRU 
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APPENDIX    E 
COMMAND    EETERHINEB    MODOLE    LISTING 


A.       COMMAND    DETERHIBEB    BODTINE 

*  Routine   Name:    Cmddet.prg 

*  Module    Naire:    Command   Determiner   Module 

*  Version:    3.0 

*  Author:  D.P.  Haeusler 

*  Date:  30  Oct  83 

*  Variables   Used:    aafinish,    cmdopt,    heloopt 

*  Variables   Modified:    aafinish,    cradop-c, "  helpopt 

*  Variables   Created:    aafinish,    cmdopt,    helpopt 

*  Variables    Released:    cmdopt,    aafinisn,    helpopt 

*  Files    (cpened/closeci)  :   none 

*  Temporary   Files  Created:    none 

*  Using    Subroutines:    Raster 

*  Description:    This    icutine   creates   a    menu    which    is    used 

*  to    determine    which    options   of   the    program   will    be 

*  executed    by   the   user.      These   options   allow   the    user   to 

*  conticl   the   use   of   the   DBMS    by   the   program. 

STORE    f    10    AAfinish 

CO   WHILE    .NOT.     AAfinish 
EE  ASE 

5)     2,17    SAY    "  USMC    INDIVIDUAL    TRAINING 

3    3,17    SAY    "  EECORD    SYSTEM 

5)    5,  17    SAY    "  MAIN    MENU 

3    7,17    SAY    "  SEIECT    ONE    CF    THE    FOLLOWING   OPTIONS    EY 

S    8,17    SAY    "  ENTERING    THE    APPROPRIATE    LETTER 

a     10,17    SAY    "  D...DATA    ENTRY    AND    SYSTEM    FUNCTIONS 

a     11,17    SAY    "  S. ..STANDARD    REPORTS 

a     12,17    SAY    "  N... NONSTANDARD    REPORTS 

a     13,  17    SAY    "  H...HELP 

a     14,17    SAY    "  Q...QUIT 

ACCEPT    "  SELECT   OPTION    ====>"    TO    cmdopt 

DC    C A CE 

CASE    !  (cmdopt)     =    '  D» 
DO   maintain 
STORE    f   TO    AAfinish 
CASE    l(cmdopt)    =    «S* 
DO    STDRPT 

STCRE    f    TO    AAfinish 
CASE    !  (cmdopt)     =    'N* 
DC   nstddet 
STCRE    f   TO    AAfinish 
CASE    !  (cmdopt)     =    ,H« 
STORE     1    TO    EELPOPT 
DO    B:HELP2 
STORE    f   TO    AAfinish 
CASE    !  (cmdopt)     =    ,Q» 
STCRE    t    TO    AAfinish 
ENECASE 
ENDDC 

RELEASE    cmdopt,    HELPCET,    aafinish 
EETUEN 
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B.       HILP2    ROUTINE 

*  Routine   Name:    Help2.prg 

*  Module   Name:    Maintenance    Module 

*  Version:    3.0. 1 

*  Author:    D.P.    Haeusler 

*  Date:    6.0.1.0 

*  Variables   Used:   helpopt 

*  Variables   Modified:   none 

*  Variables  Created:    none 

*  Variables   Released:    none 

*  Files    (opened/closed)  :   none 

*  Temporary   Files  Created:    none 

*  Using    Subroutines:    Maintain. prg,    Cmddet.prg 

*  Description:    This    routine    gives   a   brief   description    cf 

*  the   commands    that    can   be    invoked   by   the   user. 

ERASE 
CO    CASE 

CASE    HELEOPT    =    1 

TEXT 

D...CATA  ENTRY    AKE    SYSTEM    FUNCTIONS:       This    module 
allows   the    user   to    erter   data   en   individual   Marines   into 
the    data   base  and   to    modify    data    for   system   functions. 
Installation  occurs    ir   this    module   and  any    manipulation   of 
the    data   such  as  corrections   and   updates   of  of  the 
information. 

S... STANDARD   REPORTS:      This   module   produces    reports 
that    are   used  on   a    day   in  and   day   out   basis.      The    reports 
are    displayed   on   the    screen    and   if   a   taper    cony   is    required 
while   the    data    is   still   on    the,    press' the    shift   key   and   the 
prtsc   key   at  the  same  time,    this    will    print   everything    en 
the   screen. 

N.. .NONSTANDARD    REPORTS:      This    module    allows    the    users 
to   construct  thier    cwr   queries    cf   the    data   base.       It 
prompts    ycu   for    the    infer-    mation   to    make   a  query.      Paper 
copies   of  the  reports   can  obtained   by   the   same   method   as   in 
Standard   Reports. 

ENDTEXT 

a)    23,15    SAY    "    ****    PRESS    ANY    KEY    TO    CONTINUE    ****" 

SET    CONSOLE    OEF 

WAIT 

SET    CONSOLE    ON 
CASE    HELPOPT   =    2 

TEXT 

V.. .VIES  INDIVIDCAL  DATA:  This  module  prompts  ycu  for 
the  name  of  an  individual  whose  ITR  you  wish  to  see.  This 
module  dees  not  alio*  you  to  change  any  fields  all  you  can 
do  is  scan  the  data. 

C...CPDATE  DATA;   This  module  allows  you  to  change  or 
enter  data  in  any  field  of  any  ITR.   The  ITR  must  alreadv 
exist  and  is  identified  by  the  individuals  name.   Ycu  only 
need  to  enter  enough  cf  the  name  to  be  able  re  distinguish 
it  frcm  another  Marines  name. 

C... CREATE  AN  ITR:   This  module  alios  the  creaticn  cf 
new  IIR's.   It  will  prompt  ycu  to  enter  all  the  appropriate 
data.   Enter  the  data  in  one  field  at  a  time.   If  no  data 
is  tc  entered  in  that  field,  strike  the  enter  key  leaving 
the  field  empty. 

CT.  .DELETE  AN  ITR:   This  module  allows  the  Data  Ease 
Administrator  to  delete  records  in  the  data  base.   Once  a 
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record  has  been  deleted  it  is  gene  forever  and  can  net  te 
recovered.   Access  tc  this  nodule  is  restricted. 


S...SYS1EM  FUNCTIONS:   This  module  allows  the 
housekeeping  of  the  system  to  be  accomplished  by  the  Data 
Ease  Administrator.   Access  to  this  module  is  restricted. 

ENETEXT 

S    23,15    SAY    "    ****    PRESS    ANY    KEY    TO    CONTINUE    ****<• 

SET    CONSOLE    OEE 

WAIT 

SET    CONSOLE    ON 
ENDCASE 
FETUBN 
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APPENDIX    F 
NONSTANDARD    CCflflAND    GENERATOR    MOUDLE    LISTING 

A.       NCKSIANEARD    BEPOBT    BOUTINE 

*  ROUTINE    NAME:     NOSTEEPT.PRG 

*  MOEOLE    NAME:     NONSTANDARD    COMMAND    GENERATOR 

*  VERSION:    a.o 

*  AUTHOR:    R.E.     PRUIEII 

*  DATE:04FEE8U 

*  VABIAELES    USED:    MATBI1,    DESC1,    MATRI2,    DESC2,    MATRI3, 

*  DESC3,    SICT1 ,     SLCT2,    SLCT3 

*  VARIABIES    MODIFIED:    MREPEAT,    COUNT,     PROCEED 

*  VARIAELES    CREATED:     MREPEAT,    COUNT,     PROCEED 

*  VARIABLES    RELEASED:    M??????,     REPEAT,    COUNT, 

*  ATRI????,    SLCT????,    DESC???? 

*  FILES    CPENED/CIOSEI:    A:?EBS.    E:EST,     3:QUAL 

*  TEME    FILES    CREATED:    TEMP,     SLCTDATA,    TEMP2,    TEMP3 

*  OSING    SOBBOUTINES:    COMMAND    DETERMINER    MODULE 

*  DESCRIETICN:     THIS     MODULE    SEARCHES    THE    APPROPRIATE 

*  DAIAEASE    FILES    IN    CBDER    TO    LOCATE    AND    DISPLAY    ALL    RECORDS 

*  THAI    SATISFY    A    SET    CF    FROM    ONE    TO    THREE    USER    SPECIFIED 

*  AIIBIECIES. 
* 

STORE    I    10    MREPEAT 
DO    WHILE    MREPEAT   =    T 

STOBE    F    TO    MREPEAT 

ERASE 

a)    10,25    SAY    "NONSTANEARD    CCMMAND    GENERATOR" 

2    20,0       SAY    "PRESS     'H'     FOR    HELP" 

a)    21,0       Ski   "  CB    " 

ACCEPT    "PRESS     •  ENTEE'    TO    CONTINUE"    TO    PROCEED 

IF     !  (ERCCESD)  =     "H" 
DO    A:NCSIDHLP 
STORE    T    TO    MREPEAT 

ENDIF 
ENDDC 
ERASE 

2    1,25    SAY    "NONSTANDARD    COMMAND    GENERATOR" 
2    3.5       SAY    "WHEN    PROM-TED    EKTEB    AN    ATTRIBUTE    AND    A"; 
"DESCEIETCB    FOR     EACH" 

2    4,5       SAY    "CONDITION    STATEMENT    DESIRED.  " 

2    6.10    SAY    "LOCATE    ALI    MARINES    THAT    SATISFY    THESE; 
CONDITIONS:  " 
2    8,1C       SAY    "  <ATTFIEUTE>  <DESCRIPTOR>" 

2    9.10       SAY    "  IS  " 

2    2  0,0  

ACCEET    "ERESS    'ENTER'    TO    CONTINUE"    TO    PROCEED 

STORE    T    IC    MREPEAT 
STORE    0    IC    COUNT 

EO    WHILE    MREPEAT    =    T    .AND.     COUNT    <=    3 
STORE    COUNT    ♦     1    TO    CCUNT 
STORE    F    TO   MREPEAT 
DO    SLCTATEI 
ERASE 
DO    CASE 
CASE    COUNT    =     1 

2    1,0    SAY    "<ATTEIBUTE>  <DES CRIPTICN>" 

2    2,0    SAY    "  " 

2    U, 6    SAY    MTT"RI1 
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a   a 
2  a 

CASE 


30 
48 
CCD 
0 
0 
6 

48 
30 
6 

30 
0 
0 
6 

30 
48 
30 
6 

30 
48 

•I 

•A 


<DSSCRIPTION>       " 


DESC2    CASE    COUNT    =    3 

<DESCRIPTION>       " 

ii 


SAY    "IS" 

SAY    DESC1 
NT   -    2 

SAY    "<ATTRIBUTE> 
SAY    " 
SAY    MAT'Rin"'^~T73"0    SAY    "IS" 

SAY    DSSC1 

SAY    "AND" 
SAY    MATRI2 

SAY    "IS"    3    8-48     SAY 
SAY    "<ATTFIBUTE> 
SAY    " 
SAY    MITEII 

SAY    "IS" 

SAY    DESC1 

SAY     "AND" 
SAY    MATRI2 

SAY     "IS" 

SAY    DESC2 
0   SAY    "ANE" 

SAY    MATRI3 
0   SAY    "IS" 
8    SAY    DESC3 

<  3 

SAY  "DO  YCU  WANT  TO  INCLUDE  ANOTHER  CONDITION"; 
BENT?" 

"(Y/N)  ===>"  TO  PROCEED 
CEED  =  "Y" 
RE  T  TO  MEEPEAT 


E  =  "N"  .CR.  COUNT  >=  3 
"PRESS  'ENTER1  10  CONTINUE"  TO  PROCEED 


a 

3 
3 
3 

3 
a 
3 
a 

3  8 

3  8 

3  8 

a  1 

3  1 

3  1 

3  12,4 
ENECASE 
IF  COCKT 

2  2C,0 

"STATE 

ACCEPT 

IF  ERC 
STC 

END3F 
ENDIF 
IF  EROCEE 

2    22,0 

ACCEET 
ENDIF 
ENDDC 

ERASE 

IF    CCCNT    =    1 
DO    CASE 

CASE     (SLCT1    >=    "A"    .ANE.     SLCT1    <=    "I") 

U  CE    A  *P  ERS 

DISPLAY    AIL    FCB    SATRI1    =    "SDESC1"    OFF    FIELDS; 

NAME,SSN,SATRI1 

IF    ECF 

3    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT1    =    "J"    .OR.     SLCT1    =    "K") 

DSE    E:EST 

CCEY    TO    A:TEME    FIELD    SSN,SATRI1    FOR    5ATBI1    =; 

"SDESC1" 

SELECT    PRIMARY 

U  CE    A  *T  EM  P 

SELECT    SECONDAEY 

U  CE    A*  P 'R S 

JCIN    TO^SLCTDATA    FOR    F.SSN=S.SSN    FIELDS; 

NilME,SSN,SATRI1 

CSE    SLCTDATA 

DISPLAY    ALL 

IF    ECF 

3    23,50    SAY    "SEARCH    COMPLETE" 

EKDIF 
CASE     (SLCT1    >=    "L"    .AND.     SLCT1    <=    "N") 

CSE    E:QUAL 

CCFY    TO    A:TEMP    FIELD    SSN,5ATRI1    FOR    SATRI1     =; 

"SDESC1 " 

SELECT    PRIMARY 

USE    A:TEMP 


SELECT    SECONDLY 

USE    A:PERS 

JCIN    TO    SLCTDATA    FOR    P.SSN=S.SSN    FIELDS; 

NAME,SSN,SATRI1 

CSE    SLCTDATA 

DISPLAY    ALL 

IF    EOF 

3    23,50    SAY    "SEARCH    COMPLETE" 

EKDIF 
ENECASE 

ACCEET    "PRESS     'ENTEF'    TO    CONTINUE"    TO    PROCEED 
ENDIF 

IF    CCCNT    =    2 
DO    CASE 

CASE     (SLCT1    >=    "A"    .AND.     SLCT1    <=    "I")     .AND.; 

(SLCT2    >=    "A"    .AND.     SLCT2    <=    "I") 

U  CE    A I PERS 

COPY    TO    A: TEMP    FIELD    NAME,SSN , &ATRI 1 ,SATRI2    FCR; 

SATRI1="SDESC1" 

USE    A:TEMP 

DISPLAY    FOR    SATRI 2="6DESC2"    OFF    FIELDS; 

NAME,SSN,5ATRI1, 5  AT R 12 

IF   EOF 

5)    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE    (SLCT1    >=    "J"    .AND.    SLCT1    <=    "I")      .AND.; 
(SLCT2    =    "J"       .OR.       SLCT2    =    "K") 
USE   B: EST 

COPY    TO    A:TFHP    FIELD    SSN,5ATRI2    FOR    SATRI2    =; 
"SEESC2" 
SELECT    FRIMASY 
USE   A:TEMP 
SELECT    SECOSEARY 
USE   A: PERS 

JCIN    TO    SLCTDATA    FCR    E.SSN=S.SSN    FIELDS; 
NAME,  SSN,&ATBI1,SATRI2 
USE    SLCTDATA 

DISPLAY    FOR    SATRI1     =    "6DESC1"    OFF    FIELDS; 
NAME,SSN,SATBI1 ,&ATRI2 

IF   EOF 

SI    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT1    >=    "A"    .AND.    SLCT1    <=    "I")      .AND.; 
(SLCT2     >=    "I"    .AND.    SLCT2    <=    "N") 
USF   B:QUAL 

COPY    TO    A:TFMP    FIELD    SSN,SATRI2    FOR    SATRI2    =; 
"&DESC2" 
SELECT    PRIMA  FY 
USF    A;TEMP 
SEIECT    SECONEARY 
USF    A'PERS 

JCIN    TO    SLCTDATA    FCR    E.SSN=S.SSN    FIELDS; 
NAME,SSN,&ATEI1,SATRI2 
USE    SLCTDATA 

DISPLAY    FOR    8ATRI1     =    "&DESC1"    OFF    FIELDS; 
NAME.SSN,&ATEI1,£ATRI2 
IF    EOF 

9    23,50    SAY    "SEARCH    COMPLETE" 
FNDIF 
CASE     (SLCT1    ■    "J"    .OR.     SLCI1    =    "K")      .AND.; 

SLCT2     >=    "A"    .AND.    SICT2    <=    "I") 
USE   A:PERS 

COPY   TO    A:TFKP    FIELD    N AME, SS N, & ATRI2    FOR    &ATRI2    =; 
"SDESC2" 
SELECT    PRIMAFY 
USE   ArTEMP 
SELECT    SECONEARY 
USE   B:EST 

88 


JOIN    TO    SLCTDATA    FOR    P.SSN=S.SSN    FIELDS; 
NAflE-SSH,SAlEI1#SATBI2 

USE    SLCTDATA 

DISPLAY    FOR    SATRI1    =    "SDESC1"    OFF    FIELDS; 

HAHE,SSH,&ATEI1,SATBI2 

IF    EOF 

3    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE    (SLCT1    =    "J"    .OR.     SLCT1    =    "K")      .AND.; 

(SICT2    ■    "J"    .OR.     SLCT2    =    "K") 

USE  B: EST 

COPY    TO    A:TE£F    FIELD    SSN,5 ATRI 1 , 8 ATRI2    FOR    SATBI2; 

=    "SDESC2"     .AND.       SATRI1    =    "&DESC1" 

SELECT    PRIMAFY 

USE   A:TEMP 

SEIECT    SECONLARY 

USE    A:PERS 

JCIN    TO    SLCTEATA    FCR    P.SSN=S.SSN    FIELDS; 

NAME,SSN,SA1RI1,&ATRI2 

USE    SLCTDATA 

DISPLAY    ALL 

IE    EOF 

3    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT1    =    "J"    .OR.     SLCT1    =    "K")      .AND.; 

(SLCT2     >=    "I"    .AND.    SICT2    <=    "N") 

USE   B:QUAL 

COPY    TO    ArTEtfP    FIELD    SSN,SATRI2    FOR    SATRI2    =; 

"5EESC2" 

USE   B:EST 

COPY    TO    A:TEMP2    FIELD    SSN,SATRI1     FOR    &ATRI1    =; 

"DESC1" 

SELECT    PRIMA  FY 

USE   A:TEMP 

SELECT    SECONEARY 

USE   A:  TEMP  2 

JCIN    TO    A:TEEF3    FOB    P.SSN=S.SSN    FIELDS; 

SSN,&ATRI1,SATRI2 

SELECT    PRIMAFY 

USE    A:  TEMP  3 

SELECT    SECONEARY 

USE    A  *  P  ERS 

JCIN    TO    SLCTCATA    FCR    P.SSN=S.5SN    FIELDS; 

NAME,SSN,SA1RI1,&ATRI2 

USE    SLCTDATA 

DISPLAY    ALL 

IF    EOF 

9    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE    (SLCT1    >=    "L"    .AND.    SLCT1    <=    "N")     .AND.; 

{SLCT2     >=    "A"    .AND.    SLCT2    <=    "I") 

USE    A:PERS 

COPY    TO    A:TEKP    FIELD    NAME, SS N, &ATRI2    FOR    &ATRI2    =; 

"  S  E  ES  C  2  " 

SELECT    PRIMAFY 

USE    A:  TEMP 

SELECT    SECONEARY 

USE    B:QUAL 

JCIN    TO    SLCTEATA   FCR    F.SSN=S.SSN    FIELDS; 

NAME,SSN,5AIFI1,&ATRI2 

USE    SLCTDATA 

DISPLAY    FOR    SATRI1     =    "SDESC1"    OFF    FIELDS; 

NAME,SSN,&AIFI1 ,&ATRI2 

IF    EOF 

9   23,50    SAY    "SEARCH    COMPLETE" 

ENEIF 
CASE     (SLCT1     >=    "L"    .AND.    SICT1    <=    "N")     .AND.; 

(SLCT2    =    "J"    .OR.     SLCI2    =    "K") 

USE   3:EST 
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COPY    TO    ArTEMP    FIELD    SSN,&ATRI2    FOR    5ATRI2    =; 

"8DESC2" 

DSE   B:QUAL 

COPY    TO    A:TEKP2    FIELD    SSN,SATRI1     FOR    5ATRI1    =; 

"DESC1" 

SELECT    PRIMAEY 

USE   A:  TEMP 

SEIECT    SECONDARY 

DSE   A:TEMP2 

JOIN    TO    A:TE*P3    FOE    P.SSN=S.SSN    FIELDS; 

SSN,SATRI1,6ATRI2 

SELECT    ERIH1EI 

USE   A:TEMP3 

SEIECT    SECONEARY 

USE   A:PERS 

JCIN    TO    SLC1EATA    FOR    P.SSN=S.SSN    FIELDS; 

NAME, SSN,&ATRI1,&ATRI2 

DSE    SLCTDATA 

DISPLAY    ALL 

IE    EOF 

a)    23,50    SAY    "SEARCH    COMPLETE" 
ENCIF 
CASE     (SLCT1     >=    "I"    .AND.    SICT1    <=    "N")      .AND.; 


(SLCT2_>f_"L"    .AND.    SLCT2    <=    "N") 


SE   BrQUAL 

COPY    TO    A:TEMP    FIELD    SSN,&ATRI 1 , & ATRI2    FOR    6ATBI1; 

=    "5DESC1"     .AND.    &ATRI2    =    "&DESC2" 

SEIECT    PRIMAEY 

USE    A:TEMP 

SEIECT    SECONEARY 

DSE    ArPERS 

JCIN    TO    SLCIEATA    FOR    P.SSN=S.SSN    FIELDS; 

HAKE.SSH-6A1EI1 ,&ATRI2 

DSE   SLCTDATA 

DISPLAY    ALL 

IF    EOF 

5)    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
EN  EC AS  E 

ACCEPT    "PRESS     'ENTEE1    TO    CONTINUE"    TO    PROCEED 
INDIE 

IF    CCENT    =    3 
DO    CASE 

CASE     (SLCT1    >=    "A"    .AND.    SLCT1    <=    "I") 
DC    C  ASE 

CASE     (SLCT2    >=    "A"     .AND.    SLCT2    <=    "I") 
DO    CASE 

CASE     (SLCT3   >=    "A"     .AND.    SLCT3    <=    "I") 
USE    2:PERS 

COPY    10    A:TEMP    FIELD    NAME,     SSN,    &ATRI1,; 
SATRI2,    SATRI3    FOR    &ATRI 1="SDESC 1 " 
US E    A  *TEMP 

COPY    10    A:TEMP2    FIELD    NAME.    SSN,     5ATRI1,; 
SATRI2.    &ATEI3    FOR    &ATRI2= "&DESC2 " 
USE    i  "TEMP2 

DISPLAY    FOR    &ATRI3="&DESC3 "    OFF    FIELDS; 
NAME,    SSN,     SATBI1,    &ATRI2,    &ATRI3 
TF     F  CT 

a)     23,50    SAY    "SEARCH    COMPLETE" 
ENDIF 
CASE     (SLCT3    =    "J"    .OR.     SLCT3    =    "K") 
US  E    E  :  EST 

COPY    10    A:TEMP    FIELD    SSN,&ATRI3    FOR    SATRI3; 
=    "SDESC3" 
SELECT    PRIMARY 
USE    2:TEMP 
SELECT    SECONDARY 
USE    A:PERS 
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JOIN  TC  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 

NAME, SSN, &ATRI1,  SATRI2 ,£ATRI3 

USE  SICTDATA 

DISPIAY  FOR  SATRI1  =  "&DESC1"  .AND.  6ATBI2; 

=  "SEESC2"  OFF  FIELDS  NAME,  SSN,  SATRI1,; 

SATRI2,    5ATRI3 

IF    ECF 

3     22,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT3   >=    "L"     .AND.    SLCT3    <=    "N") 

USE    E:QDAL 

COPY    10    A:TEMP    FIELD    SSN,6ATRI3    FOR    SATEI3; 

s    "&EESC3" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDARY 

USE    A  iPERS 

JOIN    TO    SLCTDATA    FOR    P.SSN=S.SSN    FIELDS; 

NAME,  SSN,  5ATBI1,  SATRI2,  SATRI3 

US E  SICTDAT  A 

DISPLAY  FOR  SAIRI1  =  "SDESC1"  .AND.  SATBI2; 

=  "SEESC2"  CFF  FIELDS  NAME,  SSN,  SATBI1,; 

SATRI2,  5ATRI3 

IF  ECF 

S     23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
ENDCASE 
CASE     (SLCT2    >=    "L"    .AND.    SLCT2    <=    "N") 
DO    C  AS  E 

CASE     (SICT3    >=    "A"    .AND.    SLCT3    <=    "I") 

USE    E:QUAL 

COPY    TO    A:TEMP    FIELD    SSN,SATRI2    FOR    SATEI2; 

=    "5EESC2" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDABY 

USE    A  •'-'ERS 

JOIN  TO  SLCTEATA  FOR  P.SSN=S.SSN  FIELDS; 

NAME,  SSN,  8ATRI1,  &ATRI2,  SATRI3 

USE  SICTDATA 

DISPIAY  FOR  &ATRI1  =  "6DESC1"  .AND.  SATFI3; 

=  "5DESC3"  CFF  FIELDS  NAME,  SSN,  &ATRI1,; 

&ATRI2,  &ATRI3 

IF  ECF 

5)     23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT3    >=    "L"     .AND.     SLCT3    <=    "N") 

USE     I  :PERS 

COPY    TO    A:TEMP    FIELD    NAME, SSN ,& AT RI 1    FOR; 

SATRI1    =    "&DESC1" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDABY 

USE  ErQUAL 

JOIN  TO  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 

NAME,  SSN.  SATRI1,  &ATRI2,  &ATRI3 

US E  SICTDAT  A 

DISPLAY  FOR  5ATRI2  =  "&DESC2"  .AND.  SATEI3; 

=  "&EESC3"  CFF  FIELDS  NAME,  SSN,  &ATRI1,; 

&ATRI2,  &ATRI3 

IF  ECF 

a)     22,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT3    =    "J"    .OR.    SLCT3    =    "K") 

USE    i:PERS 

COPY    10    A:TEMP    FIELD    NAME, SSN  ,CATR1 1    FOE; 

SATRI1    =    "&EESC1" 

SELECT    PRIMARY 

USE    AtTEMP 
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SELECT    SECONDABY 

USE    E:QUAL 

JOIN    10    A:TEMP2    FOR    F.SSN=S.SSN    FIELDS; 

NAME,    SSN,     SATBI1,    &ATRI2 

SELECT    PRIMARY 

USE    A:TEMP2 

SELECT    SECONEAFY 

USE    E:EST 

JOIN    TO    SLCTEATA    FOR    P.SSN=S.SSN     FIELDS; 

NAME,    SSN,     SATRI1,    &ATRI2, & ATRI3 

USE    SICTDATA 

DISPLAY    FOR    SATRI2    =    "&DESC2"     .AND.     SATFI3; 

=    "SEESC3"    OFF    FIELDS    NAME,    SSN,     &ATRI1,; 

SATRI2,    SATRI3 

IF    ECF 

S    23,50    SAY    "SEARCH    COMPLETE" 

END  IF 
ENDCASE 
CASE    (SLCT2    =    "J"     .OR.    SLCT2    =    "K") 
DO   CASE 

CASE     (SLCT3   >=    "A"     .AND.     SLCT3    <=    "I") 

US  E    E ; EST 

COPY    TO    ArTEMP    FIELD    SSN,&ATRI2    FOR    SATBI2; 

s    "5EESC2" 

SELECT    PRIMARY 

USE    A:T2MP 

SELECT    SECONDAEY 

USE    S:PERS 

JOIN  TO  SLCTDATA  FOR  P.SSN=S.SSN  FIELDS; 

NAME,  SSN,  SATRI1,  5ATRI2,  SATRI3 

USE  SICTDATA 

DISPLAY  FOR  SATRI1  =  "&DESC1"  .AND.  SATEI3; 

=  "&EESC3"  OFF  FIELDS  NAME,  SSN,  &ATEI1,; 

SATRI2,  &ATRI3 

IF  ECF 

S     23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT3    >=    "L"     .AND.    SLCT3    <=    "N") 

USE    £:PERS 

COPY    TO    A:TEMP    FIELD    NAME, SSN  ,SATR1 1    FOB; 

SATRI1    =    "5CESC1" 

US  E    E  :  EST 

COPY    TO    A:TEMF2    FIELD    SSN,&ATRI2    FOR; 

5ATRI2    =    "&EESC2" 

SELECT    PRIMABY 

USE    A:TEMP 

SELECT    SECONEAFY 

USE    A  *TEMP2 

JOIN    TO    A:TEMF3    FOR    P.SSN=S.SSN    FIELDS; 

NAME,    SSN,     6ATBI1,    &A IRI2, &ATRI3 

SELECT    PRIMABY 

USE    2:TEMP3 

SELECT    SECONDABY 

USE    E ;QU  AL 

JOIN    TO    SLCTDATA    FOR    P.SSN=S.SSN    FIEIDS ; 

NAME.    SSN.     8ATBI1,    &ATRI2,    5ATRI3 

US E    *ICTDAT  A 

DISPLAY    FOR     5ATRI3    =    "SDESC3"    OFF     FIELDS; 

NAME,    SSN,     SATBI1,    SATRI2,     5ATRI3 

IF    ECF 

9     23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT3    =    "J"    .OR.    SLCT3    =    "K") 

USE    A:PERS 

COPY    TO    A:TEMP    FIELD    NAME , SSN ,&ATRI1    FOB; 

SATRI1    =    "&EESC1" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONEAFY 
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US  E  E  *  EST 

JOIN  TO  SLCTDATA  FOR  P. SSN=S. SSN  FIELDS; 

NAME,  SSN,  SATRI1,  SATRI2,  SATRI3 

OSE  SICTDATA 

DISPLAY  FOR  SATRI2  =  "&DESC2"  .AND.  SATFI3; 

=  "&EESC3"  OFF  FIELDS  NAME,  SSN,  &ATF.I1,; 

SATRI2,  &ATRI3 

IF  EC? 

a     25,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
EN  DC  AS  E 
ENECASE 
**BEGIN    COAL   /    *   /    * 

CASE     (SLCT1    >=    "I"    .ANE.     SLCT1    <=    "N") 
**EEG1N    COAL    /   PEBS    /   * 
DC    CASE 

CASE     (SLCT2    >=    "A"    .AND.    SLCT2    <=    "I") 
DO    CASE 

CASE     (SICT3    >=    "A"    .AND.    SLCT3    <=    "I") 

USE    A:PERS 

COPY    TO    A:TEMP    FIELD    NAME.    SSN,    &ATRI2,; 

SATRI3    FOR    SATRl2  =  "SD2SC2r'    .AND.; 

6ATRI3="SDESC3" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDABY 

USE    E:QUAL 

JOIN    10    SLCTDATA    FOR    P. SSN=S. SSN    FIELDS; 

NAME,    SSN,     SATRI1,    SATRI2,    5ATRI3 

USE    SICTDATA 

DISPLAY    FOR    SATRI 1="5DESC1 "    OFF    FIELDS; 

NAME.    SSN,     SATBI1,    SATRI2,    &ATRI3 

IF    ECF 

3    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT3    =    "J"    .OR.    SLCT3    =    "K") 

US  E    E  *  EST 

COPY    TO    A:TEMP    FIELD    SSN,&ATRI3    FOR    SATRI3; 

=    "&EESC3" 

USE    E:QUAL 

COPY    10    A:TEM?2    FIELD    SSN,SATRI1     FOR; 

8ATRI1="5DESC1" 

SELECT    PRIMARY 

USE    A: TEMP 

SELEC1    SECONEAEY 

USE    A:TEMP2 

JOIN    TO    A:TEMP3    FOR    P.SSN=S.SSN    FIELDS; 

SSN,    SATRI1  ,    &ATRI3 

SELECT    PRIMARY 

USE    A:TEMP3 

SELEC1    SECONDABY 

USE    2:PSRS 

JOIN    10    SLC1EA1A    FOR    P.SSN=S.SSN    FIELDS; 

NAME.    SSN.     8ATBI1,    &ATRI2,    SATRI3 

US E    *ICTDAT  A 

DISPLAY    FOR    &ATRI2    =    "&DESC2"  ; 

OFF    FIELDS     NAME, SSN, 5 ATRI1 ,5ATRI2 , 8 ATRI3 

IF    ECF 

a    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT3   >=    "I"     .AND.    SLCT3    <=    "N") 

USE    E :QU AL 

COPY    TO    A:TEMP    FIELD    SSN ,8 ATRI1 ,8 ATRI3  ; 

FOR    8ATRI3    =    "8DESC3"    .AND.    SATR1 1    =; 

"&DESC1" 

SELECT    PRIMARY 

USE    A:TEMP 

SELEC1    SECONDABY 

USE    A:PERS 
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JOIN  TO  SLCTEATA  FOR  P.SSN=S.SSN  FIELDS; 

NAME,  SSN,  BATHI1,  SATRI2,  SATRI3 

USE  SICTDAT  A 

DISPLAY    FOR    SATRI2    =    "&DESC2" ; 

OFF    FIELDS     NAME, SSN, SATRI1,&ATRI2,SATRI3 

IF    EOF 

a)    23,50    SAY    "SEARCH    COMPLETE" 
ENDIE 
^NDCASE 
CASE^(SLCT2    >=    "L"    .AND.    SLCT2    <=    "N") 
DO    CASE 

CASE     (SLCT3    >=    "A"    .AND.     SLCT3    <=    "I") 
USE    E:QUAL 

COPY    TO    A:TEMF    FIELD    SSN,S ATRI1 ,  & ATRI2; 
FOR    SATRI1    =    "SDESC1"     .AND.    8ATRI2    =; 
"&DESC2" 
SELECT    PRIMARY 
USE    A:TEMP 
SELECT    SECONDARY 
USE    l:PERS 

JOIN    TO    SLCTDAIA    FOR    P.SSN=S.SSN    FIELDS; 
NAME,    SSN,     SATEI1,    6ATRI2,     SATRI3 
USE    SICTDAT  A 

DISPLAY    FOR    &AIRI3    =    "&DESC3" ; 
OFF    FIELDS     NAME, SSN, & ATRI 1 ,&ATRI2 , &ATRI3 
IF    ECF 

a)    23,50    SAY    "SEARCH    COMPLETE" 
ENDIF 
CASE     (SLCT3    >=    "L"    .AND.     SLCT3    <=    "N") 
USE    E:QUAL 

COPY    TO    A:TEMF    FIELD    SSN,    &ATRI1,     &ATRI2.; 
5ATRI3    FOR    8ATRI1    =    "&DESC1"     .AND.     SATRI2; 
=    "SEESC2"     .ANE.       &ATRI3    =    "&EESC3" 
SELECT    PRIMARY 
USE    A:TEMP 
SELECT    SECONEA5Y 
USE    A:PERS 

JOIN    TO    SLCTEATA    FOR    P. SSN=S. SSN    FIELDS; 
NAME,    SSN,     8ATRI1,    &ATRI2,    &ATRI3 
USE    CICTDAT  A 

DISPIAY    ALL    OFF    FIELDS    NAME, SSN,; 
&ATRI1,&ATRI2,6ATRI3 
IF    ECF 

3     23,50    SAY    "SEARCH    COMPLETE" 
ENDIF 
CASE     (SLCT3    =    "J"    -OR.    SLCT3    =    "K") 
USE    E:QUAL 

COPY    TO    A:TEMP    FIELD    SSN  ,& ATRI1 ,& ATRI2 ; 
FOR    6ATRI1     =    "5DESC1"    .AND.    &ATRI2    =; 
"&DESC2" 
US E    E  :EST 

COPY    TO    A:TEMP2    FIELD    SSN,SATRI3    FOR; 
SATRI3   =    "&EESC3" 
SELECT    PRIMARY 
USE    ArTEMP 
SELECT    SECONEAEY 
US E    A  *TEMP 2 

JOIN    TO    A:TEME3    FOR    P.SSN=S.SSN    FIELDS; 
SSN,    SATRI1,    5ATRI2,    &ATRI3 
SELECT    PRIMARY 
USE    A:TEMP3 
SELECT    SECONEABY 
USE    A'PERS 

DISPLAY    FOR    P.SSN=S.SSN    OFF    FIELDS    NAME,; 
SSN,     6ATRI1,    6ATRI2,    SATRI3. 
IF    ECF 

5)     22,50    SAY    "SEARCH    COMPLETE" 
ENDIF 
ENDCASE 
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CASE    {SLCT2    =    "J"     .CB.    SLCT2    ■    "K") 
EO    CASE 

CASE     (SLCT3    >=    "A"    .AND.    SLCT3    <=    "I") 

US  E    E  *  EST 

COPY    TO    A:TEMF    FIELD    SSN,8ATRI2    FOR    8ATPI2; 

=    "&EESC2" 

US  E    E  ; QU AL 

COPY    10    A:TEME2    FIELD    SSN,&ATRI1     FOR; 

SATRI1    =    "&DESC1" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDARY 

US  E    A  *TEMP 2 

JOIN    TO    A:TEMF3    FOR    P.SSN=S.SSN    FIELDS; 

SSN,SATRI1,  8ATRI2 

SELECT    PRIMARY 

USE    2:TEMP3 

SELECT    SECONDARY 

USE    A:PERS 

DISPLAY  FOR  S. SATRI3="SDESC3"  .AND.; 

P.SSK=S.SSN  OFF  FIELDS  NAME,  SSN,  &ATRI1,; 

SATRI2,  SATRI3 

TP     F  f"T 

3     25,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SICT3    >=    "I"    .AND.    SLCT3    <=    "N") 

USE    E:QUAL 

COPY    TO    A-.TEMP    FIELD    SSN  ,&  ATRI1 .  &  ATRI3  ; 

FOR    SATRI1    =    "SDESC1"     .AND.    &ATRI3    =; 

"6DESC3" 

US  E    E  :EST 

COPY    TO    A:TEMP2    FIELD    SSN,&ATRI2    FOR; 

SATRI2   =    "&DESC2" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDARY 

USE    A  *TEMP 2 

JOIN    TO    A:TEM?3    FOR    ?.S5N=S.SSN    FIELDS; 

SSNr    SATEI1.    &ATRI2,    &ATRI3 

SELECT    PRIMARY 

USE    A:TEMP3 

SELECT    SECONDARY 

US E    A :P ERS 

DISPIAY  FOR  P.SSN=S.SSN  OFF  FIELDS  NAME,; 

SSN,  SATRI1,  SATRI2,  &ATHI3 

IF    ECF 

a)     23,50    SAY    "SEARCH    COMPLETE" 

ENDIE 
CASE     (SLCT3    =    "J"    .OR.     SLCT3    =    "K") 

US  E    E :EST 

COPY    TO    A:TEKP    FIELD    SSN ,& ATRI2 , 5 ATRI3 ; 

FOR    6ATRI2    =  "SDESC2"    .AND.     SATRI3    ="SDESC3" 

US  E    E  *  QU AL 

COPY    TO    A:TEME2    EISLD    SSN,SATRI1     FOR; 

8ATRI1="5DESC1" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDARY 

USE    A*  TEMP  2 

JOIN  "TO    A:TEMP3    FOR    P.SSN=S.SSN    FIELDS; 

SSN,  SATRI1,  5ATRI2,  &ATRI3 

SELECT    PRIMARY 

USE    A:TEMP3 

SELECT  SECONDARY 

USE  J»:PERS 

DISPIAY  FOR  P.SSN=S.SSN; 

OFF  E1ELDS  NAME, SSN ,&ATRI1 ,SATRI2 , &ATRI3 

IF  ECF 

3    23,50    SAY    "SEARCH    COMPLETE" 
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ENDIE 
EKDCASE 

EN  EC AS E 
**    BEGIN    EST   /    *   /    * 

CASE     (SLCT1    =    "J"    .OR.     SLCT1    =    "K") 
**EEGIN    EST   /    EERS    /    * 
EO    CASE 

CASE     (SLCT2    >=    "A"    .AND.     SLCT2    <=    "I") 
DO    CASE 

CASE     (SICT3    >=    "A"    .AND.    SLCT3    <=    "I") 

OSE    A  :PERS 

COPY    TO    A;TEMP    FIELD    NAME,     SSN,    SATRI2,; 

SATRI3    FOR    6ATRI2    =    "&DESC2"     .AND.    &ATRI3 ; 

=    "SEESC3" 

OS  E    E  :  EST 

COPY    TO    A:  TEMP 2    FIELD    SSN,&ATRI1     FOR; 

SATRI1="&DESC1" 

SELECT    PRIMARY 

OSE    A:TEMP 

SELECT    SECONDARY 

OSE    A:TEMP2 

DISPLAY    FOR    P.SSN=S.SSN    OFF    FIELDS    NAME,; 

SSN,     SATRI1,    &ATRI2,    &ATRI3 

IF    ECE 

a)     23,50    SAY    "SEARCH    COMPLETE" 

ENDEF 
CASE     (SLCT3    =    "J"    .OR.    SLCT3    =    "K") 

OSE    E:EST 

COPY    TO    A:TEMP    FIELD    SSN ,& ATRI1 . & ATRI3 ; 

FOR    €ATRI1="&EESC1"    .AND.     & ATRI3= "&DESC3" 

SELECT    PRIMARY 

OSE    A:TEMP 

SELECT    SECONDARY 

OSE    A:PERS 

DISPLAY    FOR    P.SSN=S.SSN    .AND.     S.&ATRI2    =; 

"&DESC2"    OFF    FIELDS    NAME,     SSN,    &ATRI1,; 

5ATRI2,    SATRI3 

IF    ECE 

3     23,50    SAY    "SEARCH    COMPLETE" 

ENDIE 
CASE     (SLCT3   >=    "L"     .AND.    SLCT3    <=    "N") 

OSE    E:QOAL 

COPY    TO    A:TEMP    EIELD    SSN,SATRI3    FOR    £ATRI3; 

=    "5EESC3" 

OS E    E  :EST 

COPY    TO    A:TEMP2    FIELD    SSN,&ATRI1     FOR; 

SATRI1="6DESC1" 

SELECT    PRIMARY 

OSE    A:TEMP 

SELECT    SECONEAFY 

OSE    A:TEMP2 

JOIN    TO    SLCTDATA    FOR    P.SSN=S.SSN    FIELDS; 

SSN,    SATRI1,    SATRI3 

SELECT    PRIMARY 

OSE    SICTDATA 

SELECT    SECONDABY 

OSE    A:PERS 

DISPIAY  FOR  P.SSN=S.SSN  .AND.  &ATRI2  =  ; 

"&DESC2"  OFF  FIELDS  NAME,  SSN,  &ATRI1,; 

SATRI2,  5ATBI3 

IF  ECF 

a)    23,50    SAY    "SEARCH    COMPLETE" 

ENDIE 
ENDC ASE 
CASE     (SLCT2    >=    "L"    .AND.    SLCT2    <=    "N") 
DO    CASE 

CASE     (SLCT3   >=    "A"     .AND.    SLCT3    <=    "I") 

OSE     E  *  GOAL 

COPY    TO    A:TEMP    FIELD    SSN,&ATRI2    FOR    SATRI2; 
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=    "SEESC2" 

OSE    E:EST 

COPY    10    A:TEMF2    FIELD    SSN,SATRI1     FOR; 

SATRI1="SDESC1" 

SELECT    PRIMARY 

USE    A;TEMP 

SELECT    SECONDARY 

USE    A:TEMP2 

JOIN    10    SLCTEATA    FOR    P.SSN=S.SSN    FIELDS; 

SSN,    SATRI1,    SATRI2 

SELECT    PRIMARY 

OSE    SLCTDATA 

SELEC1    SECONDAFY 

USE    A:PERS 

DISPLAY    FOR    SA1RI3    =    "SDESC3"    .AND.; 

P.SSN=S.SSN    OFF    FIELDS    NAME,    SSN,    SATRI1,; 

SATRI2,    5ATEI3 

IF    ECF 

9     23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SLCT3   >=    "L"     .AND.     SLCT3    <=    "N") 

USE    E:QUAL 

COPY    TO    A;TEMP    FIELD    SSN ,S ATRI2.5ATRI3 ; 

FOR    £ATRI2="SDESC2"    .AND.     SATRI3="S EESC3" 

US  E    E  *  EST 

COPY    TO    A:TEME2    FIELD    SSN,&ATRI1     FOR; 

8ATRI1="5DESC1" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDARY 

USE    A  ;TEMP2 

JOIN    10    SLCTDATA    FOR    P.SSN=S.SSN    FIELDS; 

SSN,    SATRI1 ,    SATRI2,    5AIRI3 

SELECT    PRIMARY 

USE    SLCTDATA 

SELECT    SECONEAFY 

US  E    A  *  PERS 

DISPLAY    FOR    P.SSN=S.SSN    OFF    FIELDS    NAME,; 

SSN,    6ATRI1,    SATRI2,    &ATRI3 

IF    ECF 

3     23,50    SAY    "SEARCH    COMPLETE" 

FNDIF 
CASE     (SLCT3    =    "J"    .OR.    SLCT3    =    "K") 

USE    ErEST 

COPY    10    A:TFMP    FIELD    SSN ,6 ATRI1 . 5 ATRI3 ; 

FOR    SATRI1="5DESC1"    .AND.     SATRI3= "SDESC3" 

US  E    E ; QU AL 

COPY    10    A:TEMP2    FIELD    SSN,SATRI2    FOR; 

SATRI2="5DSSC2" 

SELEC1    PRIMARY 

USE    A:TEM? 

SELEC1    SECONDAFY 

USE    A 'TEMP  2 

JOIN    TO    A:TEMP3    FOR    P.SSN=S.SSN    FIELES; 

SSN,     SATRI1,    SATRI2,    6ATRI3 

SELECT    PRIMARY 

USE    A:TEMP3 

SELSC1    SECONEAFY 

US E    A  *PERS 

DISPLAY  FOR  P.SSN=S.SSN  OFF  FIELDS  NAME,; 

SSN,  SATRI1,  SATRI2,  SATRI3 

IF  ECF 

5)     23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
ENDCASE 
CASE     (SLCT2    =    "J"     .CR,    SLCT2    =    "K") 
EO    CASE 

CASE     (SLCT3    >=    "A"    .AND.     SLCT3    <=    "I") 

USE    E:EST 
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COPY    TO    A:TEME    FIELD    SSN, & ATRI1 . & ATRI2    : 

FOR    SATRI1="&DESC1"    .AND.     &ATRI2="SDESC2" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT  SECONEABY 

US  E  A  *PERS 

DISPLAY  FOR  P.SSN=S.SSN  .AND.  &ATRI3  =; 

"&DESC3"  OFF  FIELDS  NAME,  SSN,  SATRI1,; 

SATRI2,  SATBI3 

IF  ECF 

9    23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SICT3    >=    "L"    .AND.    SLCT3    <=    "N") 

US  E    E  *  EST 

COPY    TO    A:TEMF    FIELD    SSN, & ATRI1 . & ATRI2; 

FOR    SATRI1="&DESC1"     .AND.     &ATRI2="SDESC2" 

USE    E:QUAL 

COPY    TO    A:TEMP2    FIELD    SSN,5ATRI3     FOR; 

SATRI3    =   "SDESC3" 

SELECT    PRIMARY 

USE    A:TEMP 

SELECT    SECONDARY 

USE    A ' TEMP 2 

JOIN'TC    SLCTEATA    FOR    P.SSN=S.SSN    FIELDS; 

SSN,    SATRI1,    &ATRI2,    SATRI3 

SELECT    PRIMABY 

USE    SICTDATA 

SELECT    SECONDARY 

USE    ArPERS 

DISPLAY    FOR    P.SSN=S.SSN    OFF    FIELDS    NAME,; 

SSN,    £ATRI1,    SATRI2,    &ATRI3 

IF    ECF 

5)     23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
CASE     (SICT3    =     "J"    .OR.     SLCT3    =    "K") 

US  E    A  *  EST 

COPY    TO    A:TEMP    FIELD    SSN,    6ATRI1,     SATRI2.; 

&ATRI3    FOR    SATRI1    ="SDESC1"     .AND.     SATRI2  ; 

=    "SEESC2"     .AND.     &ATRI3    =    "&DESC3" 

SELECT    PRIMARY 

USE    A:TEMP 

SELEC1    SECONDABY 

USE    A:PERS 

EISPLAY    FOR    P.SSN=S.SSN    OFF    FIELDS    NAME,; 

SSN,    8ATRI1,    SATRI2,    &ATRI3 

IF    ECF 

3     23,50    SAY    "SEARCH    COMPLETE" 

ENDIF 
ENCCASE 
ENECASE 
ENECASE 

ACCEET    "PRESS     'ENTER1     TO    CONTINUE"    TO    PROCEED 
ENDIF 
USE 

RELEASE    ALL    LIKE    M???:??? 
RELEASE    EEFEAT, COUNT, 
RELEASE    ALL    LIKE    ATRI;??? 
EELEASE    ALL    LIKE    SLCT???? 
RELEASE    ALL    LIKE    DESC???? 
SET    CCNSCLE    OFF 
DELETE    FILE    A:TEMP 
EELETE    FILE    A:TEMP2 
DELETE    FILE    A:TEMP3 
SET    CCNSCLE    ON 
BETURN 
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E.       NCNSTANEARD    HELP    EOUTINE 


*  ROUTINE    NAME:     NOSTEHLP.PRG 

*  MODGLE    NA*E:     NCNSTASEARD    EEPCRT    GENERATOR 

*  VEESION:     4.1.0 

*  AUTHOR:    E.E.     PRUIETT 

*  DATE:     10EEB84 

*  VARIABLES    USED:    NONE 

*  VARIABLES    MODIEIED:    NONE 

*  VAEIABIES    CREATED:     EEOCEED 

*  VAEIAEIES    RELEASED:NONE 

*  FIIES    CPENED/CIOSEE:NONE 

*  TEME    E1LES   CREATED:NONE 

*  USING    SGBEOUTINES: NCSTDRPT.EEG     (4.0) 

*  DESCRIPTION:     THIS     ECUTINE    SUPPLIES    RESPONSE    TO    THE    USER 

*  REQUEST    FOR    "HELP"    WHILE    IN    THE    NONSTANDARD    REPORT    MENU 
# 

ERASE 

2    0,25    SAY    "NONSTANDAED    COMMAND    GENERATOR" 

2    2,0       SAY    "LOCATE    ALL    MARINES    THAT    SATISFY    THE    FOLLOWING 


COnSiTICN:" 


2    4,C  SAY    "              <ATTEIBUTE>                                            < DESCRIPTOE>" 

2  4,0  SAY  "                                               " 

a  5,0  SAY  "    " 

a  6,0  SAY  "                                            " 

a  7,0  SAY  "        RANK             IS                 E5   " 

3  9.0   SAY  JJ » 

a  1 1 T 0  SAY  "      UP  TC  THREE  CONDITION  STATEMENTS  MAY  BE; 

JOINED  " 

3  12,C  SAY  "                    EOR  EXAMPLE                 " 

3    13,0  SAY    "LOCATE    ALL    MARINES    THAT    SATISFY    THE    FOLLOWING 

CONDITIONS     " 

3    14,0  SAY    "               <ATTRIBUTE>                                         <DESCRIPTOR>" 

3    15,0  SAY    "                                                                                                                " 

a    16,C    SAY    "  TTO IS  "ET5 — " 

3    17,0  SAY    "                                                    AND                                                       " 

3    18,0  SAY    "                    CCKPANY                          IS                                       A    CO    " 

3    19,0  SAY    "                                                      AND                                                          " 

a    20, C  SAY    "                    PEIMARY     BCS               IS                                       0331    " 

a    21,0  SAY    "JOINING    THESE    THREE    CONDITION    STATEMENTS    GIVE 
YOU    THE    NAME    " 

3    22,0  SAY    "AND    SS N    CE    ALL    E5'S    IN    A    CO.     THAT    HAVE    A    0331 
EBIMABY    MOS      " 

ACCEPT  "EEESS    'ENTER'    TO    CONTINUE"    TO    PROCEED 
EETUEN 
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SELECT  ATTRIBUTE  ROUTINE 


*  ROUTINE  N 

*  MODULE  NA 

*  VERSION: 

*  AUTHOR:  B 

*  DATE:  12F 

*  VARIAELES 

*  VARIABLES 

*  VARIAELES 

*  MAIRI2,  A 

*  VARIAELES 

*  FILES  CPE 

*  TEME  EILE 

*  USING  SUB 

*  DESCRILTI 

*  ATTRIBUTE 

*  USER  IS  A 

*  IF  THE  RE 

*  REPEATED. 

*  ANSWERS  N 

*  ROUTINE  W 

*  APFEOFRIA 

*  ATTRIEUTE 

*  USER  SPEC 
* 


AME:  SLCTA 
ME:  NCNSTA 
4.2.0 

.E.     PRUIET 
EB84 
USED:    COU 
MODIFIED: 
CREATED: 
TRI2,    MATE 
RELEASED: 
NED/CIOSEL 
S    CREATED: 
ROUTINES:  S 
CN:    THIS    F 
S.       AFTER 
SKED    IF    HE 
SPONSE    IS 

THIS  PRO 
C  OR  THREE 
ILL  AUTOMA 
IE  DATABAS 
INFORMATI 
IFIED    CRIT 


TEI.PR 
NDARD 


NT,  SL 
NONE 
REPEAT 
13.  AT 

NONE 
:NONE 
NONE 
CSTDRP 
CUTINE 
THE  FI 

WANTS 
?ES,  T 
CESS  I 

ATTRI 
TICALL 
E  FILE 
CN  FOR 
FRIA. 


G 

REPORT 


GENERATOR 


CT1,  SLCT2,  SLCT3 

,  MATRIBUT,  MATRI1r  ATEI1, 
EI3 


T.FEG     (4.0) 

PROMPTS    THE    USER    TO    SELECT 
EST    AND    SECOND    SELECTION    THE 

TO    SELECT    ANOTHER    ATTRIBUTE. 
HE    SELECTION    PROCEDURE    IS 
S    CONTINUED    UNTIL    THE    USER 
BUTES    HAVE    BEEN    SELECTED.       THE 
Y    SORT    AND    LOCATE    THE 
S    AND    DISPLAY    THE    NAMEr     5SN    AND 

EACH    RECORD    THAT    SATISFIES    THE 


STORE 
EO  WH 
STORE 
ERASE 
IF  CC 
EO  CA 
CAS 

CAS 
3 

CAS 
3 

CAS 

a 

CAS 

CAS 

2 

CAS 

a 

CAS 

a 

CAS 

3 
CAS 

2 
CAS 

3 
CAS 

2 
CAS 

3 
CAS 

a 

ENDCA 
ENDIE 
IF  CC 
EO    CA 

CAS 
2 

CAS 

a 


a  3 


T    TO    REP 

ILE    REFEA 

F    TC    REP 

INI    =    2    . 

SE 

E    SICT1    = 

1,1    SAY 
E    SLCT1   = 

2,  1    SAY 
E    SLCT1   = 
f  1    SAY 
SLCT1    = 

4,1    SAY 
E    SLCT1    = 

5f  1    SAY 
E    SLCT1    = 

6,  1    SAY 
E    SLCT1    = 

7f  1    SAY 
E    SLCT1    = 

8,1    SAY 
E    SLCT1    = 

9,1    SAY 
E    SLCT1    = 

10,1    SAY 
E    SLCI1    = 

11,1    S  AY 
E    SLCT1    = 

12,1    SAY 
E    SLCT1    = 

13,1    SAY 
E    SLCT1    = 

14,1    SAY 
SE 

CNT    =    3 

SE 

E    SLCT2  = 

1,1    SAY 
E    SLCT2   = 

2,1    SAY 


EAT 
T    =    T 
EAT 

OR.    COUNT    =    3 


it  a  i 

M  4c  ft 

•♦B' 

II  4c  II 

II  Ql 
11  *  II 

II  Dl 
II  *  It 

II  |?l 
M  *  II 

II  pi 
It  4c  II 

II Q I 
II  4c  " 

M  H. 
II  4c  n 

"I' 
ti  4c  it 

"J1 

it  4ci 

"K« 

II  4ci 
II  Ll 

II  4M 

"H< 

it  41I 
it  *]i 
II  4:1 


II  £11 
it  4c  ii 

II  £11 

II  4c  M 
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CAS 

3 
CAS 

3 
CAS 

2 
CAS 

3, 
CAS 

3 
CAS 

3 
CAS 

a 

CAS 
CAS 
CAS 
CAS 

a 

CAS 

a 

ENDCA 
INDIF 
2  0,2 
1,2 
2,2 
3,2 
4,2 
5,2 
6,2 
7,2 
8^2 

9*2 
10, 

11, 
12, 
13, 

I*. 

22, 

ACCEP 

IF  CC 

STC 

DO 

CA 


CA 
CA 
CA 
CA 
CA 
CA 
CA 


I  SICT 

3,  1  S 
E  SICT 

4,  1  S 
E  SICT 

5,  1  S 
E  SICT 

6,  1  S 
E  SICT 

7,  1  S 
E  SICT 

8,  1  S 
E  SICT 

9,  1  S 
E  SICT 

10,1 
E  SICT 

11,1 
E  SICT 

12,1 
E  SICT 

13.1 
E  SICT 

14,1 
SE 


sax 

SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


z 

2 

2 

2 

0 

I  "SEI 

UNT  = 

BE  MAT 

CASE 

SE  !  (S 

STOEE 

STOFE 

SE  !  (S 

STOEE 

STOFE 

SE  !  (S 

STOFE 

STCEE 

SE  !JS 

SIOEE 

STCFE 

SE  !  (S 

STOEE 

STOEE 

SE  !  (S 

STOEE 

STCFE 

SE  !  (S 

STOFE 

SIOEE 

SE  !  (S 

STOEE 


2  = 
AY 
2  = 
AY 
2  = 
AY 
2  = 
AY 
2  = 
AY 
2  = 
AY 
2  = 
AY 
2  = 
SAY 
2  = 
SAY 
2  = 
SAY 
2  = 
SAY 
2  = 
SAY 


'SE 
'A. 
'B. 
•C. 
'D. 
•E. 
•F. 
•G. 
•H. 
'I. 
'J. 
•K. 
'L. 
'M. 
•N. 


"C" 
"D" 

11  ate  tt 

II  £11 
II  *  II 

II  pil 
II  *  '*• 

IIQII 
II  *  II 

"H" 

ii  $  n 
ii  j  ii 

it  $  it 
ii  jii 
ii  $it 
ngti 
it  $n 
ii  £ii 
ti  $n 

"M" 
it  $n 

••  M" 

•i  $u 


LECT    ATTRIBUTE" 

. . RANK" 

.  .  FRIMABY    MOS  " 

. . SECONEARY    MCS" 

. .  COMPAliY" 

. . PLATCCN" 

.  .JOIN    CATE" 

.  .  EAS" 

.  .  EIRTH    DATE" 

. . WEIGHT    CONTROL" 

..EFT    CUE" 

.  .FFT    TWO" 

..SWIM    COAIIFICATION" 

..RIFLE    QUALIFICATION" 

. .  PISTCI    QUALIFICATION" 


ECT    ATTRIEQTE   ===>"    TO    MATRIBUT 

1 

RIBUT    TO    SICT1 


LCT1) 

•RANK 

•RANK 

ICT1) 

'PRIM 

•PRIM 

ICT1) 

•SECO 

•SECM 

LCT1) 

•CO  MP 

'CO  MP 

LCT  1) 

•PLAT 

'PLAT 

ICT1) 

•JOIN 

•JOIN 

ICT1) 

'EAS' 

•EASf 

ICT1 

•BIB 


\ 


=    "A 

•  TO 

•  TO 
=     ii  e 

ARY     K 

EMOS  • 

=     "C 

NDARY 
OS*     T 

=    "E 
ANY1 
ANY1 

=    nj 

CON1 
00  N» 
=    «F 

DATE1 
DATE' 
=  "G 
TO  M 
TO  A 
=  "E 
H    DAI 


it 

KATRI1 

ATRI1 
ti 

OS1    TO    MATRI1 

TO    ATRI1 
ii 

MOS«     10    MATRI1 
C    ATRI1 
ii 

10    MAT  E1 1 

IC    ATRI1 
ii 

10    MAT  E1 1 

10  ATE  11 
ii 

TO    MATRI1 

10    ATBI1 
ii 

ATRI1 

IRI1 

ii 

11  TO    MATBI1 
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STOBE     'BRTHEATE'    10    ATBI1 
CACE    !  (SLCTl)     -    "I" 

STOBE     '    WEIGHT    CCNTROL'    TC    MATRI1 

STOEE    'WTCONT'     TC    ATRI  1 
CASE     !(SICT1)     -    "J" 

STOBE     'PFT    CNE«    10    MATBI1 

STOBE    'PFT1CLSS'    10    ATRI1 
CACE     !(SICT1)     —    M KH 

STOBE    'PFT    TWO'     TO    MATRI1 

STOBE     'PFT2CLSS'    10    ATBI1 
C A CE    !  (SICT1)     —    "I" 

STOBE    'SWIM    QUALIFICATION*    TO    MATRI1 

S10EE     'SWIMQUAL'    10    ATBI1 
CASE    !  (SLCT1)     =    "M" 

STCBE     'RIFLE    QO AIIFICATICN'     TO    MATRI1 

STOBE    'RFLQUAL'     TC    ATRI1 
CASE     MSLCT1)     -    "N" 

STORE     'PISTOL    QCAEIFIC ATICN ♦    TO    MATRI1 

STOBE    'PSTQOAL'    TO    ATR 1 1 
OTHERWISE 

STOBE    T   TO    REPEAT 
ENCCASE 
INDIE 

IF  CCCN1  =  2 

STCBE  MATEIBOT  TO  SLCT2 
DO  CASE 
CASE  !(SLCT2)  =  "A" 

STOBE  'RANK*  TO  P.ATRI2 

STCBE  'RANK*  TO  ATRI2 
CASE  ! (SLCT2)  =  "E" 

STOBE  'PRIMARY  MOS«  TO  MATRI2 

STOBE  'PRIMEMOS'  TO  ATEI2 
CASE  !  (SLCT2)  =  "C" 

STOBE  'SECONDARY  MOS'  TO  MATRI2 

STOBE  'SECMCS'  TC  ATRI2 
CASE  !  (SLCT2)  =  "E" 

STOBE  'COMPANY'  TO  MATBI2 

STOBE  'COMPANY'  TC  ATRI2 
CASE  !(SLCT2)  =  "E" 

STOBE  'PLATCON'  TC  MAT BI2 

STOBE  'PLATOON'  TO  ATR 12 
CASE  !(SLCT2)  =  "F" 

STCBE  'JOINEATE'  TO  MATRI2 

STOBE  'JOINEATE'  TO  ATRI2 
CASE  !(SLCT2)  =  "G" 

STOBE  'EAS*  TO  MATRI2 

STOBE  »EAS«  TO  ATRI2 
CASE  !  (SLCT2)  =  "E" 

STOBE  'BIRTH  DATE'  TO  BATBI2 

STOBE  'BRTHDATE'  TO  AT BI2 
CASE  !  (SLCT2)  =  njn 

STOBE  •  WEIGHT  CCNTROL'  TC  MATRI2 

STOBE  'WTCONT'  1C  ATRI 2 
CACE  •  (SLCT2)  —  "J" 

STOBE  'PFT  ONE'  TO  MATRI2 

STOBE  'PFT1CLSS'  TO  ATRI2 
CACE  !  (SECT 2)  -  "F" 

STOBE  'PFT  TWO'  10  MATRI2 

STOBE  'PFT2CLSS'  TO  AT  512 
CASE  '(SLCT2)  -  "I" 

STOBE  'SWIM  QOAIIFICATICN'  TO  MATRI2 

STOBE  'SWIMQOAL'  10  AT BI2 
CASE  MSECT2)  =  "M" 

STOBE  'RIFLE  QO  AIIFICATIC  N«  TO  MATRI2 

STOBE  'RFLQUAL'  TO  ATRI2 
CACE  '(SLCT2)  =  •' K " 

STCBE  'PISTOL  QUALIFICATION1  TO  MATRI2 

STOBE  'PSTQOAL*  TO  ATRI2 
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CIHEERISE 

STORE  T  TO  REPEAT 
ENECASE 
ENDII 

IF  CCCNT  =  3 

STCEE  KATRIBUT  TO  SICT3 
DO  CASE 
CASE  !  (SLCT3)  =  "A" 

STOBE  •RANK'  TO  KATRI3 

STOBE  'RANK1  TO  ATRI3 
CACE  !(SICT3)  =  ••£" 

STOEE  'PRIMARY  MCS'  TO  MATRI3 

STOBE  'PRIMEMOS'  TO  ATRI3 
CASE  I (SLCT3)  -  "C" 

STOBE  'SECONDARY  MOS'  TO  MATRI3 

STORE  'SECMOS'  TC  ATRI 3 
CASE  !  (SLCT3)  =  "D" 

SIOBE  "COMPANY1  TC  MATEI3 

STCEE  'COMPANY'  IC  ATRI3 
CASE  '(SLCT3)  =  "E" 

STOBE  'PLATCON*  TC  MAT BI3 

STOEE  'PLATOON'  TO  ATRI3 
CASE  !  ( S ICT 3 )  —  " F " 

STOBE  'JOINEATE'  TO  MATRI3 

STOBE  'JOINEATE'  TO  ATRI3 
CASE  MSICT3)  =  "G" 

STORE  'EAS'  TO  MATRI3 

STORE  'EAS'  TO  AIRI3 
CASE  !  (SLCT3)  -  "E" 

STOBE  'EIRTH  DATE*  TO  MATBI3 

SIOBE  'BRTHEATE'  TC  AT BI3 
CASE  MSLCT3)  —  wjm 

STOBE  •  WEIGHT  CCNTROL'  TC  MATRI3 

STORE  'WTCONT'  TC  ATRI 3 
CASE  I(SICT3)  =  "J" 

STOBE  'PFT  ONE'  10  MATRI3 

STOBE  'PFT1CLSS'  TO  ATSI3 
CASE  !  (SICT3)  =  "  K" 

STOBE  'PFT  TWO'  TO  MATRI3 

SIOBE  'PFT2CLSS'  TO  AT BI3 
CASE  !  (SLCT3)  —  "I" 

SIOBE  'SWIM  QUALIFICATION'  TO  MATRI3 

STOBE  'SWIMQDAL'  TO  ATBI3 
CASE  !(SICT3)  =  "M" 

STORE  'RIFLE  QU AIIFICATICN'  TO  MATRI3 

STOBE  'RFLQUAL'  TO  ATRI3 
C A CE  !  (SICT3)  =  "8" 

STCBE  'PISTOL  Q DALIFIC ATICN '  TO  MATRI3 

STOBE  'PSTQUAL*  10  ATRI3 
01HERRISE 
STORE  T  TO  REPEAT 
ENECASE 
ENDIE 

DO  SLCIDESC 
ENDDC 
RETURN 
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B-   SELECT  EESCRIPTOB  BOUTIUE 

*  ROUTINE    NAME:     SLCTEESC.PRG 

*  MOEULE    NAME:     NONSTANDARD    REPORT    GENERATOR 

*  VERSION:     4.2.  1.0 

*  AU1HCR:  R.E.  PRUIETT 

*  DATE:  14FEB84 

*  VARIAEIES  USED:  COUNT, 

*  VARIABLES  MODIFIED:  DESC1,  DESC2,  DESC3 

*  VARIABLES  CREATED:  MEANK,  MSECMOS,  MCOMPANY,  MPLATOON, 

*  MJOINDTE,  MEAS,  MWTCONTLr  MPFTONS,  MPFTTWO,  MSWMQUAL, 

*  MRIFQUAL,  MPISQUAL,  MRANK2,  MPRIMOS2,  MSECMOS2,  MCOMPNY2, 

*  MPLAT2,  MJNDTE2,  MEAS2,  MEIRDTE2,  MWTCNTL2,  MPFT0NE2, 

*  MPFITKC2,  MSWMQAL2,  MRIFQAL2,  MPISQAL2,  MRANK3,  MPBIMCS3, 

*  MSECMOS3,  MCOMPNY3,  MPLAT3,  MJNDTE3,  MEAS3,  MBIRDTE3, 

*  MWTCNII3,  MPFTCNE3,  MPFTTWC3,  MSWMQAL3,  MRIFQAL3, 

*  MPISQAL3, 

*  VARIAEIES    RELEASED:    NONE 

*  FILES    CPENED/CLOSEE:    NONE 

*  TEMP    FIIES   CREATED:    NONE 

*  USING    SUBROUTINES:    SLCTATRI.PRG    (4.2.0) 

*  DESCRIPTION:     THIS    FCUTINE    PROMPTS    THE    USER    AFTER    EACH 

*  REQUEST    FOR    A    NEW    AITRIEUTE    TO    SELECT    THE    DESCRIPTION    FOR 

*  THE    CORRESPONDING    ATTRIBUTE.       FOR    EXAMPLE,     IF    THE    USER 

*  HAS    SELECTED    THE    ATTRIBUTE    COMPANY,     THIS    ROUTINE    WILL    ASK 

*  WHICH    COMPANY    AND    EROVIDES    A    RANGE/EXAMPLE    OF    APPROPRIATE 

*  DESCRIPTIONS     (E.G.,    A    CO,     B    CO,    ETC). 
ERASE 

IF    COUNT    =     1 
DO    CASE 

CASE  !(SLCT1)  =  "A" 

STOBE  •   •  TO  MEANK 

3  8,0   SAY  "TYPE  IN  DESIRED  RANK  DESCRIPTION"; 

"(El  E5  02  ETC.)" 

a   8-48   get'mrank  PICTURE    'XX' 

EEAE 

STORE  MRANK  TO  EESC1 
CASE  !(SLCT1)  =  "E" 

STORE  ■      ■  TC  MPRIMCS 

3  8-0  SAY  "TYPE  IN  DESIRED  PRIMARY  MOS  DESCRIPTION"; 

"(0*11    03  31    ETC.)" 

3    8^58'GET    MPRIMCS    PICTURE    'XXXX1 

BEAE 

STORE    MPRIMCS    TC    DESC1 
CASE     !(SLCT1)     =    "C" 

STOBE     '  •     TC    MSECMCS 

a    8.0    SAY    "TYPE    IN    DESIRED    SECONDARY    MOS    DESCRIPTION"; 

"(0311  ,0331  .ETC.)  " 

2  8,60    GET    MSECMCS    PICTURE    'XXXX' 
EEAE 

STORE    MSECMCS    TC    DESC1 
CASE     !(SLCT1)     =    "E" 

STOBE       ■  ■    TC    MCOMPANY 

a    8,0    SAY    "TYPE    IN    DESIRED    COMPANY    DESCRIPTION     (A"; 

"CO,WPNS    CO,H6S    CO)  " 

a    8,58    GET    MCOMPANY    PICTURE    "XXXXXX* 

READ 

STOBE    MCOMPANY    TC    DESC  1 
CASE     !  (SLCT1)     =    "E" 

STOBE  ■  ■  TO  MPLATOON 

3  8,0    SAY    "TYPE    IN    DESIfiEE    PLATOON    DESCRIPTION     (1ST"; 
"PLAT. 3D    PLAT, ETC) " 

a    8,60    GET    MPLATOON    PICTURE     'XXXXXXXXX' 
BEAD 

STOBE    MPLATOON    TO    DESC1 
CASE     !(SLCT1)     ■    "E" 

STOBE    •  ■     TC    MJOINDTE 

2    8,0    SAY    "TYPE    IN    DESIRED    JOIN    DATE    DESCRIPTION"; 
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"(220183,01  83, 83.ETC.)  » 

5)    8,64    GET    MJOINETE   PICTURE    'XXXXXX' 

BEAD 

STORE    MJOINETE    TC    DESC  1 
CASE    !(SICT1)     =    "G" 

STOBE  ■    *  TO  MEAS 

a  8.0  SAY  "TYPE  IN  DESIRED  EAS  DESCRIPTION"; 

"(220183,01  63.  82, ETC.)  " 

2    8,55    GET     MEAS    PICTURE    'XXXXXX* 

BEAD 

STORE    MEAS    TO    DESC1 
CASE    !  (SICT1)     ■    "H" 

STOBE    ■  ■     10    MBIRDATE 

2  8.0    SAY    "TYPE    IN    DESIRED    EIRTH    DATE    DESCRIPTION"; 
"(220 183, 0  1 83, 8 2. ETC.)  " 

3  8,60    GET    MBIRDATE    PICTUBE    »XXXXXX' 
BEAD 

STOBE    MBIRDATE    TC    DESC 1 
CASE     !  (SICT1)    =    "I" 

STOFE       ■  ■    TO    MWTCONTL 

3    8,0    SAY    "TYPE    IN    DESIRED    WEIGHT    CONTROL    DESCRIPTION"; 

"  (YES  CR  NO)" 

a    8,55  GET  MWTCCNTL  PICTUBE  'XXX' 

BEAD 

STORE    MWTCONTL    TC    DESC 1 
CASE     !  (SICT1)    =    "0" 

STORE  •  *  TO  MPFTONE 

3    8,0    SAY    "TYPE    IN    DESIEED    PFT    ONE    DESCRIPTION"; 

"(S  1  2  3  F  *)" 

3  8*55  GET  MPFTCKE  PICTURE  •X' 

BEAD 

STOBE    MPFTONE    TO    DESC1 
CASE     MSICT1)     =    "K" 

STOFE    ■    •     TO    MPFTTWO 

!    8,0    SAY    "TYPE    IN    DESIRED    PFT    TWO    DESCRIPTION"; 

"(S  1  2  3  F  * )  " 

a  8 '56  GET  MPFTISO  PICTURE  'X' 

BEAD 

STORE    MPFTTWO    TO    DESC1 
CASE     !(SICT1)     =    "I" 

STOFE    •       *     TO    MSRMQUAL 

3    8,0    SAY    "TYPE    IN    DESIRED    SWIMMING    QUALIFICATION"; 

"DESCRIPTION" 

3    9,0    SAY    "  (S1  ,S2,S3.UN,**)  " 

3    9.17    GET    MSSHC.GAL    PICTURE    »XX« 

STOBE    MSWMQUAL    10    DESC 1 
CASE     !(SICT1)     =    "K" 

STORE    ■       '     TO    MRIFQUAL 

3    8,0    SAY    "TYPE    IN    DESIRED    RIFLE    QUALIFICATION"; 

"DESCRIPTION" 

a  9,0  SAY  "  (EX.SS.MM.U  N,**)  " 

2  9,18  GET  MRIFCOAL  PICTURE  'XX' 
READ 

STOFE  MRIFQUAL  10  DESC 1 
CASE  !(SICT1)  =  «K" 

STOBE  '   '  TO  MFISQUAL 

3  8,0  SAY  "TYPE  IN  DESIRED  PISTOL  QUALIFICATION"; 
"DESCRIPTION" 

3    9,0     SAY    "  (EX.SS.MM.UH,**)  " 

3    9,18    GET    MPISCUAL    PICTURE    'XX' 

BEAD 

STOFE    MFISQUAL    TC    DESC 1 
ENECASE 
ENDIE 

IF    CCCNT    =    2 
EO    CASE 

CASE     !  (SICT2)     =    "A" 

STORE     '       •     TO    MRANK2 
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2    8,0       SAY    "TYPE    IN    DESIRED    RANK    DESCRIPTION; 
(E 1    E5    02    E  1C  . )  " 

2  8'48'GET    MRANK2    PICTURE    »XX' 
REAL 

STCRE    MRANK2    TO    EESC2 
CASE     !  (SLCT2)     =    "E" 

STORE     ■  •     TC    KPRIMCS2 

3  8.0    SAY    "TYPE    IN    DESIRED    PRIMARY    30 S    DESCRIPTION; 
(0311 .C331 , ETC.) " 

2    8,58    GET    KPRIKCS2    PICTUBE    »XXXX» 

BEAE 

STORE    CPRIMCS2    TC    DESC2 
CASE    !(SLCT2)     -    "C" 

STOBE    ■  «    TC    MSECMCS2 

2    3,0    SAY    "TYPE    IN    DESIRED    SECONDARY    MOS    DESCRIFTICN; 

(0311 .0331 ,ETC.) " 

2    8,60    GET    £SECECS2    PICTUBE    »XXXX« 

READ 

STORE    KSECMOS2    IC    DESC2 
CASE    !(SLCT2)     =    "E" 

STOBE       •  ■    TC    BCOHINY2 

2    8,0    SAY    "TYPE    IN    DESIRED    COMPANY    DESCRIPTION     (A; 

CO.&FNS   CO,H&S    CC)  " 

2    8.58    GET    KCOMENY2    PICTUBE    «XXXXXX» 

EEAt 

STORE    KCOMPNY2     TC    DESC2 
CASE    !(SLCT2)     =    "E" 

STOBE     •  ■    TO    MFLAT2 

2    8,0    SAY    "TYPE    IN    DESIRED    PLATOON    DESCRIPTION     (1ST; 

FIAT.3E   PLAT.ETC)" 

2    8.60    GET    KPLAT2    PICTURE    'XXXXXXXXX* 

BEAE 

STOBE    MPLAT2    TO    EESC2 
CASE     !(SLCT2)     =    "F" 

STOBE     •  •     TC    MJNDTE2 

2    8.0    SAY    "TYPE    IN    DESIRED    JOIN    DATE    DESCRIPTION; 

(22C183,01 83,83  .ETC.)  " 

2    8,64    GET     KJNDTE2    PICTURE    'XXXXXX* 

BEAE 

STORE    KJNDTE2    TC    DESC2 
CASE     MSICT2)     =    "G" 

STORE     •  ■    TO    KEAS2 

2    8.0    SAY    "TYPE    IN    DESIRED    EAS    DESCRIPTION; 

(22C183. 0183,83  .ETC.)  " 

2    8,55    GET    MEAS2    PICTUBE    • XXXXXX' 

EEAE 

STORE    MEAS2    TO    EESC2 
CASE     !  (SLCT2)     =    "fi" 

STOBE     ■  ■     TC    MBIRETE2 

2    3.0    SAY    "TYPE    IN    DESIRED    EIRTH    DATE    DSSCRIPTICN; 

(22C1 83,01 83,83  .ETC.)  " 

2    8,60    GET    MBIRETE2    PICTUBE    'XXXXXX* 

BEAE 

STOBE    MBIRDTE2     TC    DESC2 
CASE    !(SLCT2)     =    "I" 

STOBE       •  ■    TO    BWTCNTI2 

a    8,0    SAY    "TYPE    IN    DESIRED    WEIGHT    CONTROL    DESCRIPTION; 

(YES    CR    NO)  " 

a    8.55    GET    MWTCKTL2    PICTUBE    'XXX' 

BEAE 

STOBE  MWTCNTL2  TC  DESC2 
CASE  !(SLCT2)_  =  "0" 

STOBE  «  •  TO  MPFTCNE2 

a  8.0  SAY  "TYPE  IN  DESIRED  PET  ONE  DESCRIPTION; 

(S  I  2  3  F  *)  " 

a  5.So'get'mpftci;e2  pictube  'x1 

BEAE 

STOBE  MPFTONE2  TC  DESC2 
CASE  MSLCT2)  =  "K" 
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STORE     ■    ■     TC    MPETTW02 

3    8.0    SAY    "TYPE    IN    DESIRED    PFT    TWO    DESCRIPTION; 

(S    1    2    3    F    *)  " 

a^.So'GET' KPFTTWC2    PICTURE    »X« 

BEAE 

STORE  KPFTTW02  TC  DESC2 
CASE  !(SICT2)  =  "I" 

STORE  •   ■  TO  MSKMQAL2 

2  8,0  SAY  "TYPE  IN  DESIRED  SWIMMING  QUALIFICATION; 

DESCRIPTION" 

a    9,0    SAY    "  (S1  ,S2,S3,UN,**)  " 

a    9,17    GET    MSWMQAL2   PICTURE    'XX1 

READ 

STORE  MSWMQAL2  TC  DESC2 
CASE    !  (SICT2)    =    "*" 

STOBE    ■       •     TO    MBIFQAL2 

2    8,0    SAY    "TYPE    IN    DESIRED    RIFLE    QUALIFICATION; 

DESCRIPTION" 

2    9,0     SAY    "  (EX, SS, MM, UN,**)  " 

a    9,18    GET    MRIFQAL2    PICTURE     'XX1 

REAE 

STOFE  MRIFQAL2  TC  DESC2 
CASE     !(SLCT2)     =    "K" 

STORE     •       •     TO    MPISQAL2 

2  8.0    SAY    "TYPE    IN    DESIRED    PISTOL    QUALIFICATION; 
DESCRIPTION" 

3  9,0     SAY    "  (EX,  SS,  MM,  UN,**)  " 

a    9,18    GET    MPISQAL2    PICTURE    'XX1 

READ 

STOBE    MPISQAL2    TC    DESC2 
ENECASE 
ENDIE 

IF    CCCNI    =    3 
EO    CASE 

CASE     !(SLCT3)     =    "A" 

STORE     '       •     TO    MRANK3 

a    8,0       SAY    "TYPE    IN    DESIRED    RANK    DESCRIPTION; 

(E1    E5    02    ETC.)" 

3    8^U8'GET    MRANF3    PICTURE    'XX' 

REAE 

STORE    KRANK3    TO    EESC3 
CASE     !(SLCT3)     =    "E" 

STOBE     ■  ■    TC    KPRIMCS3 

a    8.0    SAY    "TYPE    IN    DESIRED    PRIMARY    MOS    DESCRIPTION; 

(03t1     C33 1     ETC  .  )  " 

a   8,5§  get'cpriccs3   PICTUFE    'XXXX' 

BEAE 

STOBE  KPRIMOS3  TC  DESC3 
CASE     MSLCT3)     =    "C" 

STORE     *  •     TC    ESECMCS3 

2  8.0    SAY    "TYPE    IN    DESIRED    SECONDARY    MOS    DESCRIPTICN; 
(0311 .0331  ,ETC.) » 

3  8,60    GET    KSECBCS3    PICTURE    'XXXX1 
BEAE 

STOBE  KSECMCS3  TC  DESC3 
CASE    MSLCT3)     =    "E" 

STOBE       •  ■    TC    MCOMFNY3 

a    8,0    SAY    "TYPE    IN    DESIRED    COMPANY    DESCRIPTION     (A; 

CC    WPNS    CO     H&S     CC)  " 

2  8,58    GET' MCOMEKY3    PICTURE    'XXXXXX' 
REAE 

STORE  MCOMPNY3  TC  DESC3 
CASE     !  (SECT  3)     =    "E" 

STOFE     •  •    TO    MPLAT3 

3  8,0    SAY    "TYPE    IN    DESIRED    PLATOON    DESCRIPTION     (1ST; 
PIAT,3E    PLAT, ETC)" 

3    8,60    GET    MPLAT3    PICTURE    'XXXXXXXXX' 

REAE 

STORE  KPLAT3  TO  EESC3 

107 


CASE     !(SLCT3)     =    "F" 

STORE     •  ■     TC    MJNDTE3 

S    8.0    SAY    "TYPE    IN    DESIRED    JOIN    DATE    DESCRIPTION; 

(220183,01 83,83  ,ETC.)  " 

2  8.6U    GET    MJNDTE3    PICTURE    »XXXXXX' 
REAE 

STORE    KJNDTE3    TC    DESC3 
CASE     !  (SECT  3)     =    "G" 
STORE     ■  •    TO    KIAS3 

3  8.0    SAY    "TYPE    IN    DESIRED    EAS    DESCRIPTION; 
(22C183, 0183,83  .ETC.)  " 

2  8,55    GET    MEAS3    PICTURE    'XXXXXX' 
REAL 

STORE    MEAS3    TO    EESC3 
CASE    !(SICT3)     =    "B" 

STORE     ■  ■     TC    MBIRETE3 

3  8.0    SAY    "TYPE    IN    DESIRED    EIRTH    DATE    DESCRIPTION; 
(220183, 0183, 83, ETC.)  " 

3    8,60    GET    MBIRETE3    PICTURE    'XXXXXX* 

REAE 

STORE  MBIRDIE3  TC  DESC3 
CASE    MSLCT3)     =    "I" 

STORE       •  •    TO    KWTCNTL3 

a    8,0    SAY    "TYPE    IN    DESIRED    WEIGHT    CONTROL   DESCRIPTION; 

(YES    CR    NO)  " 

3    8,55    GET    KWTCKTI3    PICTURE    'XXX' 

REAE 

STORE  KWTCNTL3  IC  DESC3 
CASE  !(SLCT3)  =  "J" 

STORE  •  •  TO  MPFTCNE3 

a  8.0  SAY  "TYPE  IN  DESIRED  PFT  ONE  DESCRIPTION; 

(S  1  2  3  F  *)  " 

a  8,.5,o'g£t'kpftcne3  picture  •x* 

REAL 

STORE  KPFTONE3  TC  DESC3 
CASE  !(SLCT3)  =  "K" 

STORE  •  •  TO  MPFTTW03 

3  8,0  SAY  "TYPE  IN  DESIRED  PFT  TWO  DESCRIPTION; 

(S     i    2    3    F    *)  " 

a~5,5o'GE t'hPFTTWC3    PICTURE    'X1 

REAE 

STORE  MPFTTW03  TC  DESC3 
CASE    !(SLCT3)     =    "I" 

STORE     ■       ■     TO    MSWMQAL3 

a    8,0    SAY    "TYPE    IN    DESIRED    SWIMMING    QUALIFICATION; 

DESCRIPTION" 

3    9,0    SAY    "  <S1  ,S2.S3,U  N,**)  " 

a    9,17    GET    MSWMQAL3   PICTURE    'XX' 

READ 

STOBE  MSWMQAL3  TC  DESC3 
CASE     !  (SICT3)    =    "K" 

STORE    ■       •     TO    MRIFQAL3 

3    8,0    SAY    "TYPE    IN    DESIRED    RIFLE    QUALIFICATION; 

EESCRIPTION" 

a    9,0     SAY    "  (EX, SS. MM, UN,**)  " 

o    9,18    GET    MRIFCAL3    PICTURE    'XX1 

READ 

STORE  MRIFQAL3  TO  DESC3 
CASE  !(SICT3)  =  "K" 

STORE  f   •  TO  MEISQAL3 

3  8,0  SAY  "TYPE  IN  DESIRED  PISTOL  QUALIFICATION; 

EESCRIPTION" 

a    9,0     SAY    "  (EX, SS, MM, UN,**)  " 

3    9,18    GET    MPISC.AL3    PICTURE    «XX» 

READ 

STORE    MPISQAL3    IC    DESC3 
ENECASE 
ZNDIF 
RETURN 
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APPENDIX    G 
STANDARD    COHHAHD    GENEBATOE    MODULE    LISTINGS 

1.       SIANIAEE   REPORT    fCOTINE 

*  ROUTINE    NAME:     STDREI.PRG 

*  MODULE    NAME:     STANDAED    REPORT    GENERATOR 

*  VERSION:    5.0 

*  AUTHOR:  B.E.  PRDIETT 

*  DATE:  6NOV83 

*  VARIABLES    USED:    NONE 

*  VAEIAEIES    MODIFIED:    NONE 

*  VARIABLES    CREATED:       AASTDCFT,    AADONE,     PROCEED 

*  VARIAELES    RELEASED:    AASIDOPT,    AADONE,     ALL    EXCEPT    AA????? 

*  FILES    CFENED/CLOSEE:    NONE 

*  TEME    FILES    CREATED:    NONE 

*  USING    SUBROUTINES:     COMMAND    DETERMINER 

*  DESCRIETICN:     GENERATES    THE    PRIMARY    MENU    FOR    STANDARD 

*  REPORT    SELECTION    ANE    STORES    THE    USER'S    RESPONSE    IN 

*  AASTDOET.       CONTROL    IS    THEN    PASSED    TO    THE    APPROPRIATE 

*  SUBROUTINE   TO    OBTAIN    THE     NECESSARY    DATA    FROM    THE 

*  DATAEASE.       THIS    ROUTINE    WILL    CONTINUE    UNTIL    THE    USER 

*  RESECNES    filTH     A    "Q". 

STORE    F    TO    AADONE 

EO    WHILE    -NOT.     AADONE 

ERASE 

*  PRIMARY    MENU    FOR     STANDARD    REPORT    SELECTION 

2  2,5    SAX    "  STANDARE    REPORT    SELECTION  ' 

3  3,5    SAY    "SELECT    A    REPORT    BY    ENTERING    THE    APPROPRIATE; 
LETTER    " 

2  5,5  SAY  "A. ..UNIT  FOSTER 

2  6,5  SAY  "E.. .TRAINING  STATUS  REPORT 

2  7,5  SAY  "O.  .TRAINING  ROSTER  REPORT 

2  8,5  SAI  "D.. .INDIVIEUAL  TRAINING  RECORD 

2  9,5  SAY  "E.. . MARKSMANSHIP  STATUS  REPORT 

2  10,5  SAY"F... MARKSMANSHIP  ROSTER  REPORT 

2  11,5  SAY"G...MOS  STATUS  REPORT 

2    12,5    SAY"H MCS    BCSTER    REPORT 

2    13,5    SAY"I..  .  PERSONAL    DATA    REPORT 

2    14,5    SAY"J...EST    STATUS    REPORT 

2    15,5    SAY"K...EST    ROSTER    REPORT 

2    16,5    SAY"L...SWIM    CUALIFI CATION    REPORT 

2    17,5    SAY"M...HELP 

2    19,5    £AY"C  .QUIT 

2    20,5    SAY"  " 

2215CAY"  " 

ACCENT    "SELECT    OPTION    -=---->      "    TO    AASTDOPT 

DO  CASE 

CASE  !  (AASTEOPT)  =  ■  A» 

DC  SLCTUNIT 

EC  UNITROST 

ACCEPT  "PRESS  'ENTER1  KEY  TO  CONTINUE"  TO  PROCEED 
CASE  !  (AASTEOPT)  =  ■ E* 

DC  SLCTUNIT 

EO  TRNGSTAT 
CASE  !(AASTEOPT)  =  'C* 

DO  SLCTUNIT 

DO  TRNGBCST 

2  22,0 
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ACCEPT    "ER3SS    'ENTER1     KEY    TC    CONTINUE"    TO    PROCEED 
CASE     !(A2SIEOPT)     =     'E' 

ERASE 

DC    VIEWITR 
CASE     !  (AASTDOPT)     =     'E' 

DO    SLCTUNIT 

DC    B:CKSSTAT 
CASE     I(AJSTEOPT)     =    «E' 

DC    SLCTUNIT 

DC    MKSROST 
CASE     !  (AASTDOPT)     =     «G' 

DO    SLCTUNIT 

DO    MOSSTAT 

a    22,0 

ACCEPT    "PRESS    'ENTER'    KEY    TC    CONTINUE"    TO    PROCEED 
CASE     !(AASTEOPT)     =    «H' 

DO    SLCTUNIT 

DO    MOSEOST 

j»      9  9      r 

ACCEPT    "PRESS    'ENTER'    KEY    TO    CONTINUE"    TO    PROCEED 
CASE     MAASTDOPT)     =     'I' 

DO    SLCTUNIT 

DC    PEESDATA 

a    22,0 

ACCEPT    "PRESS    'ENTER'     KEY    TC    CONTINUE"    TO    PROCEED 
CASE     l(AASTEOPT)     =    »J' 

DO    SLCTUNIT 

DC    ESTSTAT 
CASE     ! (AASTDOPT)     =     ■  »• 

DO    SLCTUNIT 

DC    ESTROST 

3    22,0 

ACCEPT    "PRESS    'ENTER'     KEY    TC    CONTINUE"    TC    PROCEED 
CASE     MASSIEOPT)     =     «L' 

DO    SLCTUNIT 

DC    SWIMQUAL 
CASE     !  (AASTDOPT)     =     'I!' 

DO    A: EEL E 
ENDCASE 

IF    !  (SASTDCPT)     =    'Q' 

STORE    T    TO    AADCNE 
ENDIE 

ENDDC 

RELEASE    AAECNE, AASTDCPT 

RELEASE    ALL    EXCEPT    AS:???? 

USE 

RETURN 
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B-       SELECT    UNIT    ROUTIBE 

*  ROUTINE    N2ME:     SLCTUNIT.PRG 

*  MODULE    NAME;     STANDARD    REPCRT    GENERATOR 

*  VEBSICN:    5.1  .  0 

*  AUTEOE:    R .  E.     PRUIETT 

*  DATE:    6NOV83 

*  VAFIAELES    USED:    ONICO,    TWOCO,    THREECO,    FOUECO,    ONSPLT, 

*  TWCFLT,    THREEPIT,FCURPLT 

*  VARIABLES    MODIFIED:    NONE 

*  VARIAELES    CREATED:     MUNIT,     MPLAT 

*  VARIAELES    RELEASED:    NONE 

*  FILES    CFENED/CLOSEE:    NONE 

*  TEMP    FILES   CREATED:    NONE 

*  USING    FOUTINES:    STEEPT.PRG     (5.0) 

*  DESCRIPTICN:     THIS    ECUTINE     ERCMPTS    THE    USER    TO    SELECT 

*  THE    SIZE    AND    NAME    CF    THE    UNIT     (I.E.,    BATTALION , COMPANY, 

*  PLATOCN)     FOR    THE    REEORT    GENERATION.       THE    USER    RESPONDS 

*  WITB    A    LETTER    THAT    CORRESPONDS    TO    A    USER    INSTALLED    CC    OR 

*  PLT    DESIGNATION.        THIS    ROUTINE    WILL    EXECUTE    ONCE    EACH 

*  TIME    CALLED. 

STORE    F    10    SLCTDCNE 

RESTORE    FROM    A:UNITMEM    ADDITIVE 

DO    WHILE    .NCT.     SLCTDCNE 

ERASE 

3    6,5    SAY    "SELECI    UNIT  " 

3    8,5    SAY    "A..  .  " 

2  8.9    SAI    CNECO 

3  10,5    SAY    "B.  .." 
3    10,9    SAY    TWOCO 
2    12,5    SAY    "C. .." 

2  12,9    SAY    THREECO 

3  14,5    SAY    "D. .. » 

2  14,9  SAY    FCURCC 

3  16,5  SAY  "E.  .. BATTALION  " 
2  17,5  SAY  «  " 
2  18,5  SAY  "  " 
ACCEPT  "SELECT    CPTION    ======>    »    TO    MUNIT 

IF  !(MUNIT)=  'A'. OR.  !(MUNIT)=,B»  .OR.  !(MUNIT)=,C«  .OR.; 
!(MUNIT)=,DI  .OR.  !  ( KUNIT) =  ,EI 

STCRE  T  TO  SLCTEONE 
ENDIF 
ENDDC 

STORE  F  TO  SLCTDCNE 

DO  WHILE  .NCT.  SLCTDCNE  .AND.  !  (MUNIT) <>• E» 

IF    !  (MUNIT)     =    »  A'    .OR.     !  (MUNIT)     =    ■  B'     .OR.     !  (MUNIT)     =     'C«; 

.CR.    I (MUNIT)     =     'E' 

EBASE 

2  10,5    SAY    "SELECT    SUBUNIT    SIZE" 

3  12,5    SAY    "A " 

2  12,9  SAY  ONEPLT 

3  14,5  SAY  "E..." 
2  14,9  SAY  TWOPLT 
2  16,5  SAY  "C.  .." 

2  16,9  SAY  THREEEIT 

2  18,5  SAY  "C.  .." 
a  18,9  SAY  FCURPLT 

3  20,5  SAY  "E. ..ALL    OF    UNIT  " 

2  21 ,5    SAY    "  " 

3  22    5    SAY    "  " 
ACCEPT    "SELECT    OETION    =======>       »    TO    MPLAT 

ENDIE 

IF    !  (MPLAT)  =,AI     .OR.     !(MPLAT)  =  ,3«     .OR.     !{MPLAT)='C     .OR.; 
•(MPLATJ^'E1    .OR.    !(MPLAT)  =  ,E« 
STORE    T    TC   SLCTDONE 
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ENDIF 
ENDDC 
IF    !  (fiUNIT)     =    »E« 

STCBE    «Z'    TO     SPLAT 
ENDIF 

SELEilSE    SLCTDONE 
ESE 
FETU5N 
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UNIT    ROSTER    ROUTIHE 


RO 
MO 
VE 
AU 
DA 
VA 
FO 
VA 
VA 
VA 
FI 
TE 
US 
DE 
PE 
RE 


UNITECST.PRG 

STANDSBD    REPORT    GENERATOR 
0 
FRUIETT 


THREECO, 


CTINE    NAME 

DOLE    NAME: 

ESICN:     5.2. 

THCR:    R.    E 

TE:    6NOV83 

RIABIES    USED:    MUNIT,    MPIAT,    ONECO,    TWOCO, 

OECO,    CNEPLT,    TWCPLT,    THREEPLT,    FOURPLT 

RIABIES    MODIFIED:    NONE 

RIAEIES    CREATED:     NONE 

RIAEIES    RELEASED:    MONIT 

LIS     (OPENED/CLOSED):     A: 

MP    FILES    CREATED:    NONE 

ING    SUEEOUTINES:     STDRPT.PRG 

SCBIETICN:     THIS    IS    A    CONTBCL    ROUTINE    WHICH   CREATES    THE 

RSCNNEL    ROSTER    FOP    THE    UNIT    SPECIFIED    BY    THE    USEE'S 

SECNSE    TO    THE    SLCIUNIT     BENU(5.1.0). 


MP  I  AT 
PEPS    INDEX 


A:  ALPHPERS 


ERAS 
USE 
DO    C 
C 

C 

C 

c 
c 

c 

c 
c 

c 

c 

c 

c 

c 

c 

c 
c 
c 


E 

A:E 

A£E 

ASE 
B 

ASE 
R 

ASE 
R 
E 

ASE 
E 
P 

ASE 
B 
P 

ASE 
B 
E 

ASE 
B 

ASE 
B 
E 

ASE 
B 
E 

ASE 
F 
E 

ASE 
B 
E 

ASE 
B 

ASE 
B 
E 

ASE 
B 
E 

ASE 
E 
E 

ASE 
B 
E 

ASE 
B 


EBS    INDEX    A: ALPHPERS 


!  (MONIT)     = 

EPOBI    FORM 

! (MUNIT)     = 
EEORT   FORM 

! (MUNIT)     = 
EEORI   FORM 
LATOCN    =    ON 

!  (MUNIT)     ■ 
EEORT    FORM 
IATCCN    =    TW 

!  (MUNIT)     = 
EEORT    FORM 
IATCCN    =    TH 

!  (MUNIT)     = 
EEOET    FORM 
IATCCN    =    FO 

!  (MUNIT)     = 
EEOBT    FORM 

!  (MUNIT)  = 
EEORT  FORM 
IATCCN  =  CN 

!  (MUNIT)  = 
EEORT  FORM 
LATCCN  =  TW 

!  (MUNIT)  = 
EEORT  FORM 
LATCCN  =  TH 

!  (MUNIT)  = 
EEOBT  FORM 
LATCCN  =  FO 

!  (MUNIT)  = 
EEOBT  FORM 

!  (MUNIT)  = 
EEORT  FORM 
LATCCN  =  ON 

!  (MUNIT)  = 
EEOBT  FORM 
LATCCN  =  TW 

!  (MUNIT)  = 
EEOBT  FORM 
LATCCN  =  TH 

!  (MUNIT)  = 
EEOET  FORM 
LATCCN  =  FO 

!  (MUNIT)  = 
EEORT  FORM 


B: ECSTRPT 

•  A' .AND. 
B: ECSTRPT 

•  J'  .AND 
B: ECSTRPT 
EPLT 

• £•  .AND 
B: ECSTRPT 
OPIT 

•I'  .AND 
B: ECSTRPT 
REEELT 

•i«  .AND 
B: ECSTRPT 
UREIT 

'E1  .AND 
B: ECSTRPT 

1  E»  .AND 
B: ECSTRPT 
EPIT 

•E1  .AND 
B: ECSTRPT 
OPIT 

»E»  .AND 
3: FCSTEPT 
REEELT 

•  E'  .AND 
B: ECSTRPT 
UREIT 

•C  .AND 
B: ECSTRPT 

•C  .AND 
B: ECSTRPT 
EPIT 

•C*  .AND 
B: ECSTRPT 
OPIT 

•C  .AND 
B: ECSTPFT 
REEELT 

•C»  .AND 
B: FOSTRPT 
URELT 

»E'  .AND 
3: ECSTRPT 


!  (MPLAT)  =  • 
FOB  COMPANY 
.  !  (MPLAT)  = 
FCB  COMPANY 

.  !  (MPLAT)  = 

FOR  COMPANY 

.  !  (MPLAT)  = 
FOR  COMPANY 

.  !  (MPLAT)  = 
FOR  COMPANY 

.  !  (MPLAT)  = 
FCB  COMPANY 

.  !  (MELAT)  = 
FCR  COMPANY 

.  ! (MPLAT)  = 
FOB  COMPANY 

.  !  (MPLAT)  = 
FOR  COMPANY 

.  !  (MPLAT)  = 
FOE  COMPANY 

.  !  (MPLAT)  = 
FOB  COMPANY 

.  !  (MPLAT)  = 
FCB  COMPANY 

.  !  (MPLAT)  = 
FCE  COMPANY 

.  ! (MPLAT)  = 
FCB  COMPANY 

.  !  (MPLAT)  = 
FCB  COMPANY 

.  !  (MELAT)  = 
FCB  COMPANY 


E' 

=  ONECO 

•A' 

=  ONECO  .  AND. 

•B« 

=  ONECO  .  AND. 

•C« 

=  ONECO  .AND. 

•D» 

=  ONECO  . AND. 

•E» 

=  TWOCO 

•A' 

=  TWOCO  .AND. 

•B« 

=  TWOCO  .AND. 

•C 

=  TWOCO  .AND. 

•D« 

=  TWOCO  .AND. 


1  E* 

=  THREECO 

«  A' 

=  THREECO  .AND, 

•B' 

=  THREECO  .AND, 

■C« 

=  THREECO  .AND, 

•Df 

=  THREECO  .AND 


i  i?i 


=  FOURCO 
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CASE     !  (MUNIT)     =     •£•    -AND.     ! (MPLAT)     =     'A* 

BEFOBT    FORM    BtBCSTRPT    FCB    COMPANY    =    FOUBCO     .AND 
EIATCCN   =    CNEPLT 
CASE     l(MDSIT)     =     ,E«     .AND.     ! (MPLAT)     =     '3' 

BEPOET    FORM    B:ECSTR?T    FOR    COMPANY    =    FOURCO     .AND 
flATCCN    =    TWOPIT 
CASE    !  (MUNIT)     =    ■  £•     .AND.     !  (MPLAT)     =     'C 

BEFOBT    FORM    B:FCSTRPT    FOB    COMPANY    =    FOURCO     .AND 
PLATCCN    =    THREEFLT 
CASE     !  (MUNIT)     =     '£•     .AND.     !  (MPLAT)     =     ■D1 

BEPOBT    FORM    BtFOSTRPT    FOB    COMPANY    =    FOURCO     .AND 
ELATCCN    =    FOURIIT 
ENDCASE 
USE 

RELEASE    KONIT,     MPLAT 
EETUBN 


11a 


D.   TRAINING  STATISTICS  ROUTINE 

*  ROUTINE    NAME:     TRNGSIAT.PRG 

*  MODULE    NAME:     STANDAFD    REPCRT    GENERATOR 

*  VEBSICN:    5.3. 0 

*  AUTHOR:    R.    E.     PRUIEIT 

*  DATE:     22DEC83 

*  VAFIAELES    USED:     MUNIT,    MPLAT,    ZZACOCr     ZZTOTAL,     ZZECOC, 

*  ZZCCOC,    ZZAHIS,    ZZEHIS,    ZZCHIS,    ZZACOD,     ZZBCOD,     ZZCCOC, 

*  ZZAINT,    ZZBINT,    ZZCTNT,    ZZAAID,    ZZBAID,    ZZCAID,     ZZEAIE, 

*  ZZEAID,    ZZFAID,    ZZGAID,    ZZHAID,    ZZIAID,    ZZJAID,     ZZKAIE, 

*  PRCCEEE,     ZZAUNI,     ZZEUNI,     ZZCUNI,    ZZANBC,     ZZBNBC,     ZZCNBC, 

*  ZZDNBC,    ZZEN3C,    ZZFNBC,    ZZAMKS,    ZZBMKS,    ZZCMKS,     ZZEMKS, 

*  ZZEMKS,    ZZFMKS,    ZZATAC,    ZZBTAC,    ZZCTAC,    ZZDTAC,     ZZETAC, 

*  ZZPFT1,    ZZPFT2,    ZZSKIM,    ZZRFL,     ZZPST,    ZZNAPST,     ZZNAREL 

*  VARIABLES    MODIFIED:    NO   GLCEAI    VARIABLES    MODIFIED 

*  VARIAEIES    CREATED:     NONE 

*  VARIAEIES    RELEASED:    ZZ?????? 

*  FILES     (OEENED/CLOSFE)  :  EST  ,    PERS,    QUAL     (ALL    FILES    CLOSED) 

*  TEME    FILES    CREATED:    TEMP, 

*  USING    SUEFOUTINES:     STDRPT.PRG 

*  DESCRIETICN:     FOR    TEE    SELECTEE    UNIT,    THIS    ROUTINE 

*  CAICULATES   THE    TOTAL    NUMBER    OF    TRAINING    ELEMENTS 

*  CCMEIETED    FOR    EACH    TRAINING    CATEGORY.        FOR    EXAMPLE,    THE 

*  TRAINING    CATEGORY     "HISTORY"    CONSIST    OF    THREE    TRAINING 

*  ELEMENTS*    A,     B ,    C) .       A    PERCENTAGE    COMPLETED    FIGURE    IS 

*  CALCULATEE    FOR    EACH   TRAINING    ELEMENT    BY    DIVIDING    THE 

*  TOTAL    TRAINING    ELEMENTS    CCMEIETED    (    EX.     ZZAHIS,     ZZEHIS, 

*  ZZCHIS)     EY   THE    TOTAL    NUMBER    OF    PERSONNEL    IN    THE 

*  UNIT  (ZZTOTAL).    BOTH    THE    AESCLUTE    TOTALS     FOR    EACH    ELEMENT 

*  ANE    TEE    PERCENTAGE    COMPLETED    FIGURES    ARE    SHOWN. 

ERASE 

2    12,35    SAY    "WORKING" 

DO    C  A  CE 

CASE     !  (MUNIT)     =    * E1 

USE    B:EST 

CO    CNTTRNG 
CASE     !  (MUNIT)    =     'A'. AND.     !  (SPLAT)     =    •  E' 

SEIECT    PRIMARY 

USE    A:PERS 

SELECT   SECONDARY 

USE    E  :  ES  T 

SEIECT   PRIMARY 

JCIN    10    TEMP    FCF     (P.CCMPANY    =ONEC0    .AND.    P.SSN  =  S.SSN) 

EIELES   COC, HIS  , COD, INT, AID, UNI, ; 

PFT1CLSS,PFT2CISS,NBC ,MKS,TAC 

LSE    TEMP 

CO    CNTTRNG 

DEIETE   FILE    TEKE 
CASE     !  (MUNIT)     =     'A1     .AND.    !(MPLAT)     =    »A» 

SEIECT    PRIMARY 

USE    A:PERS 

SEIECT   SECCNDA5Y 

USF    E:EST 

SEIECT  PRIMARY 

JCIN  TO  TEMP  FCF  (P. COMPANY  =ONSCO  .AND.  P. PLATOON  =; 

CNEPLT  .AND.  P.SSN=S.SSN)  FIELDS; 

C0C,HIS,C0E,INT,AID,UNI,PFT1CLSS,; 

PFT2CLSS,NEC,MKS,TAC 

CSE    TEMP 

EC    CNTTRNG 

DEIETE   FILE    TECE 
CASE     !  (MUNIT)     =     'A'     .AND.     !  (MPLAT)     =    •  B» 

SEIECT    PRIMARY 

USE    A:PERS 

SEIECT    SECCNDAEY 

USE    E:EST 
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SEIECT    PRIMARY 

JOIN    TO    TEMP    FCF     (P. COMPANY    =ONECO    .AND.    P.PIATCCN    = 

IfcCELT    .AND.     P.SSN=S.SSN)     FIELDS; 

CCC,HIS,COD, INT,AID,UNI,PFT1CLSS,; 

PFI2CISS ,NSC,MFS,TAC 

USE    TEMP 

CO    CNTTRNG 

DEIETE  FILE  TEEE 
CASE    i(MUNIT)     =    ■  V     .AND.    !(MPLAT)     =    'C 

SEIECT    PRIMARY 

USE    A:PERS 

SEIECT   SECCNDAFY 

US  I    E:EST 

SEIECT  PRIMARY 

JOIN  TO  TEMP  FCF  (P. COMPANY  =ONECO  .AND.  P. PLATOON  = 

THREEPLT  .AND.  E.SSN=S.SSN)  FIELDS; 

COC.HIS,COD,INT,AID,UNI,PFT1CLSS, ; 

PFT2CLSS ,  NEC,MFS,TAC 

CSE    TEMP  I 

DO    CNTTRNG 

DEIETE  FILE  TEME 
CASE    !  (MUNIT)     =    '  A»     .AND.    !  (MPLAT)     =    «D« 

SEIECT    PRIMARY 

USE    A:PERS 

SEIECT    SECCNDAFY 

USE    B:EST 

SEIECT   PRIMARY 

JCIN    TO    TEMP    FCF     (P. COMPANY    =ONECO     .AND.    P. PLATOON    = 

FOURPIT    .AND.     E.SSN=S.SSN)     FIELDS; 

COC,HIS,COE, INT,AID,UNI,PFT1CLSS, ; 

EFT2CLSS , NEC ,MFS,TAC 

CSE    TEMP 

DO    CNTTRNG 

DEIETE  FILE  TEKE 
CASE     !(MUNIT)     =    •  E»     .AND.    !  (MPLAT)     =    'E« 

SEIECT   PRIMARY 

USE    A:PERS 

SEIECT   SECCNDAFY 

USE    E:EST 

SEIECT    PRIMARY 

JCIN    TO    TEMP    FCF     (P. COMPANY    =TWOCO    .AND.; 

f.SSN  =  S.SSN)     FIELDS    CCC,  HIS  ,COD,  INT,  ; 

AIE,UNI, PFT1CLSS,PFT2CLSS,NBC,MKS,TAC 

CSE    TEMP 

CO    CNTTRNG 

DEIETE  FILE  TEME 
CASE     !  (MUNIT)     =    »  E»     .AND.     !  (MPLAT)     =    'A' 

SEIECT   PRIMARY 

USE    A:PERS 

SEIECT   SECCNDAFY 

USE    E;EST 

SEIECT    PRIMARY 

JOIN    10    TEilP    FCp     (P. COMPANY    =TWOCO     .AND.    P.PIATOCN    = 

CNEPLT    .AND.     P.SSN=S.SSN)     FIELDS    COC, BIS, COD, ; 

INT,AID,UNI,?FI1CLSS,  PET  2CL5S  ,  NBC  ,  I'.KS  ,T  AC 

CSE    TEMP 

CO    CNTTRNG 

DEIETE  FILE  TEME 
CASE     !*(MUNIT)     =     «  E1     .AND.     !  (MPLAT)     =     '3' 

SEIECT    PRIMARY 

USE    A:PERS 

SEIECT    SECCNDAFY 

USE    E:EST 

SEIECT    PHIMARY 

JCIN    TO    TEMP     FCF     (P. COMPANY    =TWOCO     .AND.    P. PLATOON    - 

TSiCFLI    .AND.     P.SSN=S.SSN)     FIELDS    COC  ,  HIS,  CO  D,  ; 

INT, A  ID,  UNI,PFT1CLSS,  PFT 2CLSS , NBC , MKS , T AC 

CSE    TEMP 

DO    CNTTRNG 
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DEIET 

CASE  !  (M 
SEIEC 
USE  A 
SEIEC 
OSI  E 
SEIEC 
JOIN 
THREE 
INI, A 
CSE  T 
EO  CN 
DEIET 

CASE  !  (M 
SEIEC 
USE  A 
SEIEC 
USE  E 
SEIEC 
JOIN 
FOUEP 
INT,  A 
CSE  T 
CO  CN 
DEIET 

CASE  1(9 
SEIEC 
USE  A 
SEIEC 
USE  E 
SEIEC 
JCIN 
P.SSN 
AIE,U 
CSE  T 
EO  CN 
DEIET 

CASE  !  (M 
SEIEC 
USE  A 
SEIEC 
USE  E 
SEIEC 
JCIN 
=  CNE 
COE,I 
CSE  T 
EG  CN 

•*»  ■*"  T  T  T 

U  L.  J.JJ  J. 

CASE  i  (.1 

SEIEC 
USE  A 
SEIEC 
USE  B 
SEIEC 
JCIN 
=  TWC 
INT  ,  A 
CSE  T 
CO  CN 
DEIET 
CASE  !(M 
SEIEC 
USE  A 
SEIEC 
USE  B 
SEIEC 
JOIN 
=  THE 


E    FIL 
UNIT) 
T    PEI 
:PERS 
T    SEC 
:EST 
T    PEI 
TO    TE 
PLT     . 
ID,  UN 
EMP 
TTBNG 
E   FIL 
UNIT) 
T   PEI 
:?EBS 
T    SEC 
:EST 
T    PHI 
TO    TE 
IT    .  A 
ID,  UN 
EMP 
TTP.NG 
E    FIL 
UNIT) 
T    PEI 
:?ERS 
T   SEC 
:EST 
T    PHI 
TO    TE 
=  S.  SS 
NT,  PF 
EMP 
TTP.NG 
E    FIL 
UNIT) 
T    PEI 
:PERS 
1    SEC 
:EST 
T    PHI 
10    TE 
BIT     . 
NT,  A I 
EM? 
TTRNG 
Z    FIL 
UNIT) 
T    PHI 
:PERS 
T    SEC 
:EST 
T    PRI 
TO    TE 
PLT     . 
ID,  UN 
EMP 
TTRNG 
E   FIL 
UNIT) 
T    PRI 
:PERS 
T    SEC 
:E3T 
T   PRI 
TO    TE 
EEPLT 


E    TSKB 

=    • E'     .AND 
MARY 

CNDABY 

MARY 

MP     FCB     (P.C 

AND.     E.SSN= 

I,PFT1CLSS, 


!  (MPLAT)     =     'C 


OMPANY    =TWOCO    .AND.    P.PIATCON    =; 
S.SSN)     FIELDS    COC, HIS , COD , ; 
PFT2CLSS,N3C,MKS,TAC 


E    TE£E 
=     ■ E'     .AND 

MARY 

CNDAEY 

MARY 

MP    FCB     (P.C 

ND.     E.SSN=S 

I,PFT1CLSS, 


!  (MPLAT)     =    '  D 


OMPANY    =TWOCO    .AND.    P. PLATOON    =; 
.SSN)     FIELDS    COC, HIS, COD,  ; 

PFT2CLSS,N3C,MKS,TAC 


S    TEfE 

=     'C     .AND 
MARY 

CNDABY 

MARY 

MP     FCF     (P.C 

N)     FIEIDS    C 

T1CLSS,PFT2 


«  (MPLAT)  = 


OMPANY  =THREECO  .AND.; 
CC, HIS, COD, INT, ; 
CLSS,NBC,MKS,TAC 


E    TE  iME 

=     'C«     .AND 
MARY 

CNDAEY 

MARY 

MP    FCB     (P.C 

AND.     E.SSN= 
D,  UNI,PFT1C 


(MFLAT)     =     'A' 


OMPANY    =THREECO     .AND.     P.PIATCON; 
S.SSN)     FIELDS    COC, HIS,; 
ISS,     ?EI2CL3S,N3C,MKS,TAC 


=     ' C ■     .AND 
MARY 

CNDABY 

MARY 

MP     FCB     (P.C 

AND.     E.SSN= 

I,PFT1CL5S, 


E    TEKE 

=     »C     .AND 
MARY 

CNDABY 

MARY 

MP    FCB     (P.C 
.ANE.    P.SS 


(MPLAT)     =     •  B» 


OMPANY    =THR2EC0    .AND.     P.PIATCON; 
S.SSN)     FIELDS    COC, HIS , COD , ; 
PFT2CLSS,NBC,MKS,TAC 


.     !  (MPLAT)     =     'C 


OMPANY  =THREECO  .AND.  P.PIATCON; 
N=S.SSN)  FIELDS  CO C, HI S , CCD, ; 


117 


IN 
CS 
CO 

DE 
CASE 

SE 
OS 
SE 
US 
SE 
JC 

IN 
CS 
DO 
DE 

CASE 
SE 
US 
SE 
US 
SE 
JC 
P. 
AI 
CS 
DO 
DE 

CASE 
SE 
US 
SE 
US 
SE 
JC 

IN 

CS 

DO 

DE 
CASE 

CE 
US 

CS 

us 

CE 
JC 

AI 
CS 

CO 
DE 
CASE 
SE 
US 
SE 
US 
SE 
JC 

CO 
PF 
CS 
DO 

DE 
CASE 
SE 
US 

SE 


T,AID,UNI,  PF 
E    TEMP 

CNTTRNG 
IETE   FILE    TE 
! (MUNIT)     =     ■ 
IECT    PRIMARY 
I    A:?ERS 
IECI   SECCNDA 
I    E  :  ES  T 
IECT    PRIMARY 
IN    TO    TEMP    F 
FOURPLT     .AND 
T,AID,UNI,PF 
E    TEMP 

CNTTRNG 
IETE   FILE    TE 
!  (MUNIT)     =    » 
IECT   PRIMARY 
I    A:PEBS 
IECT   SECCNDA 
I    E:EST 
IECT    PRIMARY 
IN    TO    TEMP    F 
SSN=S.SSN)     F 
E,UNI,?FT1CL 
E    TEMP 

CNTTRNG 
IETE   FILE    TE 
!(MUNIT)     =     ' 
IECT    PRIMARY 
I    A:?ERS 
IECT   SECCNDA 
I    E  *  ES  T 
IECT    PRIMARY 
IN    TO    TEMP    F 
CNEPLT     .AND. 
T,AID,  UNI,PF 
E    TEMP 

CNTTRNG 
IETE    FILE   TE 
!  (MUNIT)     =     ■ 
IECT    PRIMARY 
1    A:PERS 


T1CLSS, PFT2CLSS,N3C,MKS,TAC 


ME 

C     .AND  .     !  (MPLAT)     =    «D 


E-I 


CE     (P. COMPANY    =THREECO    .AND.     P.PIATCON; 
.    P.S5N=S.SSN)     FIELDS    COC , HIS , COD, ; 
T1CLSS, PFT2CLSS,N3C,MKS,TAC 


V  n 

D«     -AND  .     !  (MPLAT)     =     •  Z* 


hi 


CE     (P. COMPANY    =FOURCO    .AND.; 
IELDS    CCC, HIS, COD, INT, ; 
SS,PFT2CLSS,NBC,MKS,TAC 


ME 

E»     .AND  .     !  (MPLAT)     =     'A' 


IY 


CE     (P. COMPANY    =FOURCO     .AND.     P.PLATCCN; 

E.SSN=S.SSN)     FIELDS    COG, HIS , COD, ; 
T1CLSS, PFT2CLSS,N3C,MKS,TAC 


ME 

E«     .AND  .     !  (MPLAT)     =    ■  B» 


EI 


CR     (P. COMPANY    =FOORCO    .AND.    P.PLATCCN; 
E.SSN=S.SSN)     FIELDS    COC, HIS , CCD, INT, ; 
SS, P FT 2 CLSS, NBC, MKS,TAC 


ME 


IECT  SECCNDA 
1  B:EST 
IECT  PRIMARY 
IN  TO  TEMP  F 
TWOELT  .AND. 
E,0NI,?FT1CL 
E    TEMP 

CNTTRNG 
IET E   FILE    TE 
!(MUNIT)     =     •£•     .AND.     !  (MPLAT)     =    fC» 
IECT   PRIMARY 
I    A:PERS 
IECT    SECCNDA 
I    E:EST 
IECT    PRIMARY 
IN    TO    TEMP    F 
THREEPLT    .AN 
C, HIS, COD, IN 
T2CLSS,NBC  ,M 
E    TEMP 

CNTTRNG 
IETE    FILE    TE 
I(MUNIT)     =     • 
IECT    PRIMARY 
E    A:PEP.S 
IECT    SECCNDAE? 


FV 


CR    {P. COMPANY    =FOURCO     .AND.     P.PLATCCN; 
D.    P.SSN  =  S.SSN)     FIELDS; 


T,AID,UNI,PFT1CLSS, ; 
FS,TAC 


ME 

D«     .AND  .     !  (MPLAT)     =     •D1 
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U  S I    E :  ES  T 

SELECT    PRIMARY 

JCIN    TO    TEMP    FCR     (P. COMPANY    =FOURCO 

=    EOCEPLT     .AND.    F.SSN  =  S.SSN)     FIELDS 

COC. HIS,COD,  INT, AID,  UNI, PFT 1CLSS,  ; 

PFT2CLSS,NBC,MFS,TAC 

CSE    TEMP 

CO    CNTTRNG 

DELETE   FILE    TEKP 


AND.     P.PLAICCN 


ENDCASE 

ERASE 

a 

0,2  5    SAY 

2 

2,C    SAX    " 

2 

2,25    SAY 

2 

2,30    SAY 

2 

2,52    S2Y 

2 

3,25    SAX 

a 

3,3C    SAY 

2 

3,52    S2Y 

2 

4,25    SAY 

2 

4,30    S2Y 

2 

4,52    SAY 

2 

6,0    SAY    " 

2 

6,2  5    SAY 

2 

6,3C    SAY 

2 

6,52    SAY 

2 

7,25    SAY 

2 

7,30    SAY 

2 

-7,52    SAY 

2 

8,25    SU 

a 

8,30    SAY 

2 

8.52    SAY 
10,0    S2Y 

2 

2 

10,25    SAY 

2 

10,30    SAY 

2 

10,52    SAY 

2 

1 1, 25    SAY 

3 

11,30    SAY 

2 

11,52    SAY 

2 

12,25    SAY 

2 

12,30    SAY 

2 

12,52    SAY 

2 

14, C    SAY 

2 

14,25    SAY 

a 

14,30    SAY 

2 

14,52    SAY 

2 

15,25    SAY 

2 

15,30    SAY 

2 

15,52    SAY 

2 

16,25    SAY 

2 

16,30    SAY 

2 

16,52    SAY 

2 

18, C    SAY 

3 

18,20    SAY 

2 

18,24    SAY 

2 

18,46    SAY 

2 

18,50    SAY 

2 

18,54    SAY 

2 

18,76    SAY 

2 

19,20    SAY 

2 

19,24    SAY 

2 

19,46    SAY 

2 

19,50    SAY 

2 

19,54    SAY 

2 

19,76    SAY 

a 

20,20    SAY 

2 

20,24    SAY 

2 

20,46    SAY 

2 

20,50    SAY 

"TRAINING    STATUS 
CODE    CF    CCNDUCT. 
(ZZACOC/ZZIOTAL) 
'•PERCENT    CCMPLET 
ZZACOC    USING    '99 
(ZZBCCC/Z2TCTAL)_ 
''PERCENT    CCMPLET 
ZZBCOC    USING    '99 
(ZZCCOC/Z2TCTAL) 
"PERCENT    CCMPLET 
ZZCCOC    USING     '99 
MARINE    COEFS    HIS 
(ZZAHIS/Z2TCTAL) 
"PERCENT    CCMPLET 
ZZAHIS    USING    »99 
(ZZBHIS/Z2TCTAL) 
"PERCENT    CCMPLET 
ZZBHI5    USING     «99 
(ZZCHIS/ZZTOTAL) 
"PERCENT    CCMPLET 
2ZCHIS    USING    '99 
"CLOSE   OREER    DRI 
(ZZACOD/2ZTOTAL 
'•PERCENT    COMPLE 
ZZACCD    USING    '9 
(ZZBCOD/ZZTOTAL 
'•PERCENT    CCMPLE 
ZZBCCD    USING    '9 
(ZZCCOD/ZZTOTAL) 
•'PERCENT    CCMPLET 


ZZCCOD  USING  '9 
"INTERIOR  GUARD. 
(ZZAINT/ZZTOTAL 
'•PERCENT  CCMPLE 
ZZAINT  USING  '9 
(ZZBINT/ZZTOTAL 
"PERCENT  CCMPLE 
ZZBINT  USING  '9 
(ZZCINT/22TOTAL 
'•PERCENT  COMPLE 
ZZCINT  USING  «9 
"FIRST  AXE..." 
(ZZAAID/ZZTOTAL 
'♦PERCENT  CCMPLE 
ZZAAID  USING  '9 
(ZZBAID/ZZTCTAL 
'•PERCENT  COMPLE 
ZZ3AID  USING  '9 
(ZZCAID/2ZTOTAL 
'•PERCENT  CCMPLE 
ZZCAID  USING  '9 
(ZZDAID/ZZTOTAL 
''PERCENT  CCMPLE 
ZZDAID  USING  «9 
(ZZEAID/ZZTOTAL 
'•PERCENT  CCMPLE 
ZZEAID  USING  »9 
(ZZFAID/ZZTOTAL 


REPOR 
ii 

♦  100    u 

EE  A.  . 
9' 

*10  0  U 
ED  B.  . 
9' 

*100  U 
ED  C.  . 
9' 

TORY. . 
*100  U 
ED  A.  . 
9» 

♦  100  u 
ED  E.. 
9» 

*100  U 
ED  C.  . 
9« 

LL.  .." 
)  *100 
TED    A. 
99« 
)*100 
TED    B. 
99' 

*10Q 
ED    C. 

ii 

f*1C0 

TEE    A. 

99' 

)  *  1  CO 

TED    E. 

99« 

)  *100 

TED  C. 
99. 


ij  II 

SING 
ii 


SING 
ti 


SING 
ii 


SING 
ii 

• 

SING 
it 

SING 
ii 


USING 
it 


USING 
ii 


USING 
ii 


US  IN: 
ii 


USIN< 
ii 


USING 
ii 


)  *  1  00 

TED    A. 
c  9 1 

L*100 

TED    B. 
991 

)  *100 
TED    C. 
99' 
)*100 
TED    D. 
99' 
)  *1Q0 
TED    E. 
S9' 
)  *100 


USING 
ii 


USING 
it 


USING 
ii 


USING 
ii 

USING 
ii 


USING 


999' 
999' 
999' 

999  • 
999* 
999' 

999» 

999' 
999' 

999' 

999' 
9991 

999' 
999' 
999' 
9991 

999' 
999. 
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a  20 

3  20 

a  21 
a  21 
a  21 
a  21 
a  21 
a  21 
a  22 
a  22 
a  22 
a  22 
a  22 
a  22 
a  23 
a  23 
a  23 

ACCS 
ERAS 

a  o 
a 


a 
a 
a 
a 
a 
a 
a 
a 
a 
a 

a 

a 

3 

a 
a 
a 

a 
a 

3 

a 

2 

a 

a 

a 
a 
a 
a 

a 


2 
2 
2 
2 
3 
3 
3 

4 

4 
4 
6 
6 
6 
6 
7 
7 
7 


,54 
,76 

,20 

,24 

,46 

,50 

,54 

,76 

,20 

,24 

,46 

,50 

,54 

,76 

,20 

,24 

,46 
|  j   ii 

£ 

25  S 
0  SA 
25    S 


SAY 
SAY 
SAY 
SAY 
SAY 
SAS 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
PRE 


"PER 
ZZFA 
(ZZG 
'•PER 
ZZG  A 
(ZZH 
•'PER 
ZZHA 
(ZZI 
'*PER 
ZZI  A 
(ZZJ 
'•PER 
ZZJA 
(ZZK 
'•PER 
ZZKA 
SS    •  E 


CENT 
ID  0 
AID/ 
CENT 
ID  U 
AID/ 
CENT 
ID  0 
AID/ 
CENT 
ID  U 
AID/ 
CENT 
ID  0 
AID/ 
CENT 
ID  0 
NTER 


AY  "TR 
Y  "EQU 


a  8 
a  8 


30 
52 
25 
30 
52 
25 
3C 
52  S 
C  SA 
25  S 
30  S 
c,2  q 
25  S 
30  S 

52  S 
2  5  c 

3C  S 
52  S 
25  S 
30  S 
52  S 


0 
0 

1 
1 
1 

3 
3 
3 
3 
4 
4 
14 
5 
5 
5 
6 
6 
6 
7 
7 
7 
8 
6 
8 
3  20 


25 

30 

52 

25 

30 

52 

C  S 

25 

30 

52 

25 

30 

52 

25 

30 

52 

25 

30 

52 

25 

30 

52 

25 

30 

52 

0 


AY 
AY 
AY 
AY 
AY 
AY 
AY 
AY 
AY 
Y 

AY 
AY 

n 

AY 

AY 

AY 

AY 

AY 

AY 

AY 

AY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

AY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 


(ZZ 

"PE 
ZZA 
(ZZ 
"PE 
ZZB 
(ZZ 
"PE 

zzc 

"KBC 
(ZZ 
"PS 
ZZA 
(ZZ 
"PE 
ZZB 
(ZZ 
"PE 
ZZC 
(ZZ 
•'PE 
ZZD 

lip 

ZZ 

Ap 

ZZ 
"MA 

■>p 

ZZ 

(z 

Ap 

ZZ 
Ap 

ZZ 

(z 
"? 

ZZ 
ZZ 

l)p 

ZZ 


AINING 

IPMENT 

AUNI/Z 

RCENT 

UNI    US 

BUNI/Z 

RCENT 

UNI    US 

CUNI/Z 

RCENT 

UNI    US 
n 

ANEC/Z 

RCENT 

NBC    US 

BNEC/Z 

RCENT 

NBC    US 

CN3C/Z 

RCENT 

NBC    US 

DNBC/Z 

RCENT 

NBC    US 

ZENBC/ 

E  RCENT 

EN  EC    U 

ZFN3C/ 

E  RCENT 

FNBC    U 

RKSMAN 

ZAMKS/ 

ERCENT 

AMFS    U 

ZBMKS/ 

ERCENT 

E-KKS     U 

ZCHKS/ 

ERCENT 

CMKS    U 

ZDMKS/ 

ERCENT 

DHKS    U 

ZEMKS/ 

ERCENT 

EMFS    U 

ZFUKS/ 

ERCENT 

FMFS     U 


CCMPLE 
SING  *9 
ZZTOTAL 

COMPLE 
SING  '9 
ZZTOTAL 

COMPLE 
SING  '9 
ZZTOTAL 

CCMPLE 
SING  '9 
ZZTOTAL 

CCMPLE 
SING  «9 
ZZTOTAL 

COMPLE 
SING  «9 
•  TO  CO 

STATUS 
/UNIFOR 
ZTOTAL) 
CCMPLET 
I  KG  "99 
ZTOTAL) 
CCMPLET 
I  KG  «99 
ZTOTAL) 
CCMPLET 
ING  •  99 

ZTOTAL! 

CCMPLET 

I  KG  '99 

ZTOTAL) 

CCMPLET 

ING  «99 

ZTCTAL) 

CCMPLET 

ING  '99 

ZTCTAL) 

CCMPLET 

IMG  '99 

ZZTOTAL 

CCMPLE 
SING  «9 
ZZTOTAL 

CCMPLE 
SING  '9 
SHIP... 
ZZTOTAL 

CCMPLE 
SING  '9 
ZZTOTAL 

CCMPLE 
SING  '9 
ZZTOTAL 

COMPLE 
SING  '9 
ZZTOTAL 

COMPLE 
SING  '9 
ZZTOTAL 

COMPLE 
SING  »9 
ZZTOTAL 

CCMPLE 
SING  '9 


TED  F 
99' 
)  *100 
TED  G 
99* 
)  *100 
TED  H 
99' 
)*100 
TED  I 
99 ' 
)*100 
TED  J 
S9« 
)  *100 
TED  K 
99* 
NTINU 


ING    '999' 
ii 


US 
US 

•  •  • 

us: 

• . . 

us: 

•  •  • 

us 

•  •  « 

E"    TO 


ING    '999' 
ii 

[ING    «999« 
ii 

IING    »999» 
ii 

ING    '999' 
ii 


REPOET" 
MS..." 

♦  100 
ED    A. 
9« 

*100 
ED    E. 
9« 

*100 
ED    C. 
9« 


USI 
ii 

USI 
II 

.    . 

USI 
II 


*100 

ED    A 

9» 

♦  100 

ED    E 

9' 

*100 

ED    C 

9' 

*100 

ED    D 

9' 

)*10 

TED 

99» 

)  *10 

TEE 

99' 
it 

)*10 

TED 
ggi 

)  *10 

TED 

99' 

)  *10 

TED 
c  g  i 

)*10 

TED 
ggi 

)*10 

TED 
ggi 

)*10 

TED 
99» 


USI 
it 


USI 
II 

.    . 

USI 
II 


USI 
II 


0    US 

—     •      •      m 

0   us 

F.  .. 


0   us 

n  •   •  • 

0   us 

c  •  •  • 

0   us 

w       •  •         • 

g   us 

D .  .  • 

0    US 

E.  .. 

0   us 

F.  .. 


NG 
NG 
NG 

NG 
NG 
NG 
NG 


ING 
ii 


ING 
ii 


ING 
ii 


ING 
ii 


ING 
ii 


ING 
ii 


ING 
ii 

ING 
n 


9991 
9991 

999' 

999» 

999» 

9991 

9991 
9991 
9991 

9991 

999' 
9991 

9991 

9991 

999. 
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ACCEPT    "ERESS    •ENTER1    TG    CONTINUE"    TO    PROCEED 

ERAS  I 

2    0,25    SAY    "TRAINING    STATUS     EEEOPT" 

2  2,0    SAY    "INDIVID    TAC    MEASURES..." 

3  2,25    SAY     (ZZATAC/ZZTOTAL)  *100    USING    '999« 
2    2,30    SAY    ''PERCENT    COMPLETED    A..." 

a    2,52    SAY    ZZATAC    USING     '999' 

2    3,25    SAY     (ZZBTAC/ZZTOTAL)  *100    USING     '999' 

a    3,30    SAY    ''PERCENT    COMPLETED    E " 

2    3,52    SAY    ZZBTAC    USING    '9991 

2    4,25    S£Y     (ZZCTAC/ZZTOTAL1  *1C0    USING     '999' 

2    4,30    SAY    "PERCENT    COMPLETED    C " 

2    4,52    SAY    ZZCTAC    USING    '99S' 

2    5,25    SAY     (ZZDTAC/Z2TOTAL)  *100    USING    '999» 

2    5,3C    SAY    "PERCENT    COMPLETED    D " 

2    5,52    SAY    ZZDTAC    USING    '999' 

2    6,25    SAY     (ZZETAC/Z2TOTAL)  *100    USING    '999' 

2    6,30    S£Y    ,?PERCENT    COMPLETED    E..." 

2    6,52    SAY    ZZETAC    USING     '999' 

2  8  0  SAY  "PFT1..." 

2  8^24  SAY  ((ZZTCTAI-ZZPFT1) /ZZTCTAL)  *1Q0  USING  '999' 

2    8,31    S2Y    ''PERCENT    COMPLETED    EFT    ONE..." 

2    8,62    SM     (ZZTOTAL-ZZPFT1)      USING    '999* 

2    10    C    SAY    "PFT2..." 

2    10'24"SAY     ((ZZTOTAL-ZZPFT2) /ZZTOTAL) *100    USING     '999« 

2    10,31    SAY    "PERCENT    COMPLETED    PFT    TWO..." 

2    10,62    SAY     (ZZTOTAL-ZZPFT2)     USING    ^gg' 

RESTORE    FROM   ZZTEMP 

CO    C  A  CE 

CASE    !(MUNIT)     =    •  E« 

CSE    E:QUAL 

EO    CNTQUAL 
CASE     JJMUNIT)    =     •A1. AND.      !(MPLAT)     =    '  E" 

SEIECT   PRIMARY 

USE    A:PERS 

SEIECl   SECGNDAEY 

USE    B:QUAL 

SEIECT    PRIMARY 

JOIN    TO    TEMP    FOE     (P. COMPANY    =ONECO    .AND.; 

P.SSN=S.SSN)      FIELDS       SSN , SWIMQUAL  ,    RFLQ  UAL,  PSTQU  AL 

CSE    TEMP 

EC    CNTQUAL 

DEIETE   FILE    TEME 
CASE     !(MUNIT)     =    »  P. '     .AND.     !<MPLAT)     =    «A» 

SEIECT    PRIMARY 

USE    A:PERS 

SEIECl    SECCNDAEY 

USE    E:QUAL 

SEIECT    PRIMARY 

JOIN    TO    TEMP    FOR     (P. COMPANY    =ONECO    .AND.    P.PIATOCN    =; 

CNEPLT    .AND.     P.SSN=S.SSN)     FIELDS; 

SSN,SWIMQUflL,REIQUAL,  PSTQUAL 

CSE    TEMP 

EO    CNTQUAL 

DEIETE   FILE    TEME 
CASE    l(MUNIT)     =    •  A»     .AND.    !(MPLAT)     =    '31 

SEIECT    PRIMARY 

USE    A:PERS 

SEIECT    SECONDARY 

USE    E:QUAL 

SEIECT    PRIMARY 

JOIN    TO    TEMP    FOE     (P. COMPANY    =ONECO     .AND.    P.PIATOCN    =; 

TiiCELI    .AND.     P.SSN=S.SSN)     FIELDS; 

SSN,SWIMQU  AL,REIQUAL, PS1QUAL 

CSE  TEMP 

DO  CNTQUAL 

DEIETE   FILE    TEKE 
CASE     I(MUNIT)     =    '  £'     .AND.    !(MPLAT)     =    »C« 

SEIECT    PRIMARY 
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USE    A:PERS 

SELECT   SECCNDAFY 

USE    E:QUAL 

SELECT   PRIMARY 

JCIN    TO    TEMP    FCF     (P. COMPANY    =ONECO    .AND.    P.PLATCCN    =; 

THREEELT     .AND.     E.SSN=S.SSN)     FIELDS; 

SSN,SWIMQUAL,RELQUAL, PSTQUAL 

CSE    TEMP 

CO    CNTQUAL 

DELETE  FILE  TE£E 
CASE    I(MUNIT)     =    •  I*     .AND.    !(MPLAT)     =    »D« 

SELECT   PRIMARY 

OSE    AtPERS 

SELECT    SECCNDAFY 

USE    E:QUAL 

SELECT   PRIMARY 

JCIN    TO    TEMP    FCF     (P. COMPANY    =ONECO    .AND.    P. PLATOON    =; 

FCCRPLT    .AND.     E.SSN=S. SSN)     FIELDS; 

SSN,SWIMQU  AL,RFLQUAL,  PSTQUAL 

CSE    TEMP 

DO    CNTQUAL 

DELETE  FILE  TEKE 
CASE    !(MUNIT)     =    'E'     .AND.     !  (MPLAT)     =    'E' 

SELECT    PRIMARY 

USE    A:PERS 

SELECT    SECCNDAFY 

USE    E:QUAL 

SELECT    PRIMARY 

JOIN    TO    TEMP    FCB     (P. COMPANY    =TWOCO    .AND.; 

P.SSN=S.SSN)     FIELDS    S SN, SWIMQU AL, RFLQUAL, PS TQU AL 

CSE    TEMP 

DO    CNTQUAL 

DELETE  FILE  TEIT- 
CASE     !(MUNIT)     =    «  E'     .AND.     !(MFLAT)     =    'A1 

SELECT   PRIMARY 

USE    A:PERS 

SELECT   SECCNDAFY 

USE    E:QUAL 

SELECT  PRIMARY 

JOIN  TO  TEMP  FOB  (P. COMPANY  =TWOCO  .AND.  P. PLATOON  =; 

CNEFLT  .AND.  P.SSN=S.SSN)  FIELDS; 

SSN,SWIMQUAL  ,R JLQUAL, PSTQUAL 

CSE    TEMP 

CO    CNTQUAL 

DELETE  FILE  TEEE 
CASE    !(MUNIT)     =    «  E»     .AND.     !  (MPLAT)     =    'E' 

SELECT   PRIMARY 

USE    A:PERS 

SELECT   SECCNDAEY 

USE    E:QUAL 

SELECT    PRIMARY 

JCIN    TO    TEMP    FCF     (P. COMPANY    =TWOCO    .AND.    P. PLATCCN    =: 

IfcCPLT    .ANC.     P.SSN=S.SSN)     FIELDS; 

SSN,SWIMQUM.,RELQUAL, PSTQUAL 

CSE    TEMP 

CO    CNTQUAL 

DELETE  FILE  TEKE 
CASE    I(MUNIT)     *    ■  E'     .AND.     !  (MPLAT)     =    »C« 

SELECT    PRIMARY 

USE    A:PERS 

SELECT    SECCNDAFY 

USE    E:QUAL 

SELECT   PRIMARY 

JOIN    TO    TEMP    FCF     (P. COMPANY    =TWOCO    .AND.    P. PLATOON    =; 

THEEEPLT     .AND.     F.S5N=S.SSN)     FIELDS; 

SSN,SWIMQUSLrRELQUAL, PSTQUAL 

CSE    TEMP 

DC    CNTQUAL 

DELETE    FILE    TEKE 
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CASE  !(H 

SELEC 

osi  a 

SEIEC 
OSI  E 
SELEC 
JOIN 
FODEP 
SSN,S 
CSE  T 
EC  CN 
DEIET 

CASE  ! (M 
SEIEC 
USE  A 
SEIEC 
OSI  E 
SEIEC 
JOIN 
E.SSN 
CSE  T 
DO  CN 
EEIET 

CASE  !  (M 
SEIEC 
DSE  A 
SEIEC 
OSE  E 
SEIEC 
JOIN 
=  CNE 
SSN,S 
CSE  T 
EO  CN 
DEIEI 

CASE  !  ( M 
SEIEC 
OSI  A 
SEIEC 
OSI  E 
SEIEC 
JCIN 
=  TWO 
SSN,S 
CSE  T 
EO  CN 
DEIET 

CASE  !  (M 
SEIEC 
OSI  A 
SEIEC 
OSI  E 
SEIEC 
JCIN 
=  IHB 
SSN,S 
CSE  T 
DC  CN 
DEIET 

CASE  !(M 
SEIEC 
OSI  A 
SEIEC 
OSI  E 
SEIEC 
JOIN 
=  FOU 
SSN,S 
CSE  T 


ONIT) 
T  PRI 
:PERS 
•I  SEC 
:QOAL 
T  PEI 
TO  TE 
IT  .A 
HIHQO 
EMP 
TQOAL 
E  FIL 
ONIT) 
T  PRI 
:PERS 
1  SEC 
:QOAL 
I  PRI 
TO  TE 
=S.  SS 
IMP 
TQOAL 
E  FIL 
UNIT) 


=    *  E»     .AND-    ! 
MARY 

CNDAEI 

MARY 

M?  FCE  (P. COM? 
ND.  E.SSN=S.SS 
SL  ,RIIQOAL,  PSS 


E    TEKE 

=     »C»     .AND.     ! 
MARY 

ONDABY 

MARY 

MP    FCE     (P.COMP 

N)     FIELDS    SSN, 


E   TEMP 

=     »C»    .AND.     ! 
MARY 


(MPLAT)     =    «D« 


ANY    =TWOCO    .AND.    P. PLATOON    =; 

N)     FIELDS; 

GOAL 


(MPLAT)     =    »E« 


ANY    =THREECO    .AND. ; 
SWIMQOAL, RFLQOAL,FSTQUAL 


T   PR 

:PERS 

T   SECONDAFY 

:QOAL 

T   PRI 

TO    TE 

ELT    . 

WIMQO 

EMP 

TQOAL 

E   FIL 


MARY 

MP  FCE  (P.CCME 
AND.  E.SSN=S.S 
AL,RIIQOAL, EST 


(MELAT)     =    'A' 


ANY    =THREECO    .AND.     P. PLATOON; 

SN)     FIELDS; 

COAL 


E   TEKE 
=    «  C     .AND.     ! 

MARY 

CNDAF? 


MARY 

MP    FCR     (P. COMPANY    =THR2EC0     .AND.     P.EIATCON; 

AND.     E.SSN=S.S: 

AL,RILQOAL,  PSI< 


UNIT) 

I   PRI 

:PERS 

1    SEC 

:QOAL 

T   PRI 

TO    TE 

ELT 

WIMQO 

EMP 

TQOAL 

E   FIL 

UNIT) 

T    PRI 

:PERS 

I   SEC 

:QOAL 

T   PRI 

TO   TE 

ZEPLT 

WIMQO 

EMP 

TQOAL 

E   FIL 

UNIT) 

T    PRI 

:PERS 

I   SECCNDAEI 

:QOAL 

T    PRI 

TO    TE 

EPLT 

WIMQO 

EMP 


(MPLAT)     =    «B« 


sn)    fields; 

iua; 


QUAL 


E    TEKE 

=    »C     .AND.    ! 
MARY 

CNDAE? 

MARY 

MP    FCR     (P.COMP 

.ANE.    P.S5N=S 

AL,RIIQUAL,  PST 


S   TEKE 

■     *C»     .AND.     ! 
MARY 


(MPLAT)     =    »C 


ANY    =THREECO     .AND.     P.PIATCON; 

.SSN)     FIELDS; 

QOAL 


(MPLAT)     =    «D» 


MARY 

MP     FOB     (P. COMPANY    =THREECO     .AND.     P.PIATCON; 

.AND.    E.SSN=S. 

AL,RIIQUAL,  PST 


SSN)     FIELDS; 
QOAL 
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EO    CNTQUAL 
D  E I E  T  E   FILE    T  E  K  E 
CASE     i (MUNIT)     =     'E'     .AND.     !  (MPLAT)     =    'E« 

SELECT   PRIMARY 

USE    A:PERS 

SEIECT   SECCNDAEY 

USE    E:QUAL 

SELECT   PRIMARY 

JOIN    TO    TEMP    FCF     (P. COMPANY    =FOURCO    .AND.; 

P.SSN=S.SSN)     FIELDS    S  SN,  SWIMQUAL,  RFLQUAL,  PS  TQU  AL 

USE    TEMP 

DO    CNTQUAL 

DELETE    FILE   TEMP 
CASE     '(MUNIT)     =     •£•    .AND.     !  (MELAT)     =     'A» 

SELECT   PRIMARY 

USE    A:PERS 

SELECT   SECONDARY 

USE    E:QUAL 

SELECT   PRIMARY 

JCIN    TO    TEMP    FCB     (P.CCMEANY    =FOURCO    .ANE.     P. PLATOON 

=    CNEPLT     .AND.     E.SSN=S.SSN)     FIELDS; 

SSN, SWIMQUAL, REIQUAL,  PSTCUAL 

CSE    TEMP 

EC    CNTQUAL 

DELETE   FILE    TEEE 
CASE     !(MUNIT)     =    'E*     .AND.     !  (MPLAT)     =    'B' 

SELECT    PRIMARY 

USE    A:PER5 

SELECT    SECCNDABY 

USE    E:QUAL 

SELECT    PRIMARY 

JCIN    TO    TEMP    FCB     (P. COMPANY    =FOURCO     .AND.    P.PLATCCN 

=    IWOPLT     .AND.     E.SSN=S.SSN)     FIELDS; 

SSN, SWIMQUAL, RELQUAL, PSTQUAL 

CSE    TEMP 

DO    CNTQUAL 

DELETE   FILE    TE£E 
CASE     !  (MUNIT)     =     «  C '     .AND.    !  (MPLAT)     =    •C 

SELECT   PRIMARY 

USE    A;PERS 

SELECT   SECCNDAEY 

USE    E:QUAL 

SELECT   PRIMARY 

JCIN    TO    TEMP    FCB     (P. COMPANY    =FOURCO    .AND.     P.PLATCCN 

=    THREEPLT    .ANE.    P.SSN  =  S.SSN)     FIELDS; 

£Sii,SWIMQUAL,RILQUAL, PSTQUAL 

CSE    TEMP 

EO    CNTQUAL 

DELETE   FILE    TEfE 
CASE    I  (MUNIT)     =    '  E«     .AND.     !  (MPLAT)     =    »D» 

SELECT    PRIMARY 

USE    A:PERS 

SELECT    SECCNDAEY 

USE    E:QUAL 

SELECT  "PRIMARY 

JCIN    TO    TEMP    FCB     (P.CCMPANY    =FOURCO     .AND.     P.PLATCCN 

=    FOUBPLT     .AND.    E.SSN=S.SSN)     FIELDS; 

SSN, SWIMQUAL, REIQUAL,  PSTQUAL 

CSE    TEMP 

EO    CNTQUAL 

DELETE    FILE    TEKE 
ENDCASE 

3    12, C    SAY    "SWIMQUAL..." 

3    12,24    SAY     ((ZZTOTAL-ZZSWIM) /ZZTOTAL) *100    USING     «999» 
3    12,31     SAY    "PERCENT    SWIM    QUALIFIED..." 

2  12,60    SAY     (ZZTOTAL-ZZSWIM)     USING    '999' 

3  14    0    SAY    "RIFLE    QUAL..." 

3    14*24    SAY     ((ZZTOTAI-ZZRFL-ZZNAEFL)/ZZTOTAL) *100     USING; 
•999  » 
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14,31 
14,60 
16,0 
16f2U 


,'60 


2 

2 

2 

2 
•  999 

2    16 
2    16 

2   20 

ACCENT 

RELEASE 

USE 

RETURN 


SAY    "PERCENT    RIFLE    QUAIIFIED,  . .  " 

SAY     (ZZTOTAL-ZZRFL-ZZNARFL)     USING     '999' 
SAY    "PISTOL    QUAL..." 
SAY     ((ZZTOTAI-ZZPST-ZZNAPST)/ZZTOTAL) *100    USING; 

SAX    "PERCENT    PISTOL    QUALIFIED..." 

SAY     (ZZTCTAL-ZZPST-ZZNAPST)     USING     '999' 

"PRESS    'ENTER*    TO    CONTINUE"    TO    PROCEED 
All    LIKE    ZZ?:7??? 
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1EAINING   COUNT    ROUTINE 


* 

* 
* 

* 
* 


ROD 
MOE 
VEE 
AUT 
DAT 
VAE 
TWC 
VAP 
VAB 
ZZB 
ZZC 
ZZG 
ZZC 
ZZE 
ZZE 
VAE 
FII 
TEM 
ENT 
USI 
DES 
SUE 


TINE  N 

ULE  NA 

SICN: 

HCR:  E 

E:  6NO 

IA3IES 

ELT,  T 

IABIES 

IAELES 

HIS,  * 

INT, 

AID, 

UNI, 

NBC, 

MKS, 

IAEIES 

ES  CPE 

P  FILE 

EFING 

NG  ECU 

CEIETI 

JECI  T 


A  ME: 
ME:  S 
5.3.  1 

.E.  P 
V83 

USED 
KREEP 

MODI 

CREA 
ZCHIS 
ZAAID 
ZHAID 
ZPFT1 
ZFNBC 
ZATAC 

RELE 
NED/C 
S  CRE 
THIS 
TINES 
CN:  T 
EAINI 


CNTTFSG.PRG 

TANDSED    REPORT    GENERATOR 

.0 

RUIETT 


:    ON 
LT, 

EIED 
TED: 
,  ZZ 
,  ZZ 
,  ZZ 
,  ZZ 
,  ZZ 
,  ZZ 
AS  ED 
LOSE 
ATED 
ROUT 
:  TE 
HIS 
NG  E 


ECO.  TW 
*EOURPL 
:  NCNE 

ZZACOC 
ACOD,  Z 
EAID, 
I  AID, 
EET2, 
AF.KS, 
EIAC, 
:  NCNE 
E:  NONE 
:  ZZTSM 
1NE) 
KGSTAT. 
FCUTINE 
IEMENTS 


ceo, 

T 


THREECO,  FOURCO,  ONEPLT, 


,  ZZBCOC,  ZZCCOC,  ZZAHIS, 
ZBCCD,  ZZCCOD,  ZZAINT,  ZZEINT, 


ZCAID, 
ZJAID, 
ZANEC, 
ZEMKS, 
ZCIAC, 


ZZDAID, 
ZZKAID, 
ZZBNBC, 
ZZCMKS, 
ZZDTAC, 


ZZEAID, 
ZZAUNI, 
ZZCNBC, 
ZZDMKS, 
ZZETAC 


ZZFAIC, 
ZZEUNI, 
ZZDNEC, 
Z ZEMKS, 


SMP  (SAVES  ALL  VARIAELES  UPCN 

ERG 
COUNTS  THE  NUMBER  OF  ESSENTIAL 
THAT  HAVE  BEEN  COMPLETED. 


SAVE 

.BELE* 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
CCUNT 


TO  Z2TEMP 
SE  ALL 
TO  ZZTOT 


EOF 
FOR 
EOF 
EOF 
FOE 
EOF 
FOR 
EOF 
FOE 
EOS 
FOB 
FCB 
EOF 
FOB 
FOE 
FOE 
FOE 
FOR 
EOF 
FOB 
EOB 
FOE 
EOB 
FOB 
FOE 
EOB 
FOB 
EOF 
FOB 
EOF 
FOB 
EOB 
FOB 
EOB 
EOB 
FOB 
FOB 
FOE 
FOE 
EOF 


AL 
COC) 
COC 

COC 
HIS' 
HIS 
HIS 
CCD 
COD 
COD 
INT 
INT 
INT 
AID 
AID 
AID 
AID 
AID 
AID 
AID 
AID 
AID 
AID 
AID 
UNI 
UNI'i 
UNI 
NEC  i 
N  EC 
NEC 
NEC  i 
NBC) 
NEC) 
(MKS 
MKS 
MKS 
MKS 
MKS) 
MKS) 
TAC) 
T  AC) 


TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TO 
TO 
TC 
TO 
TC 
TO 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 
TC 


ZZACOC 
ZZBCCC 
ZZCCCC 
ZZAHIS 
ZZBHIS 
ZZCHIS 
ZZACCD 
ZZBCOD 
ZZCCCD 
ZZAINT 
ZZBINT 
ZZCINT 
ZZAAID 
ZZBAID 
ZZCA ID 
ZZDAID 
ZZEAID 
ZZFAID 
ZZGAID 
ZZHAID 
ZZIAID 
ZZJAID 
ZZKAID 
ZZAUNI 
ZZBUNI 
ZZCUNI 
ZZANEC 
ZZBNBC 
ZZCNEC 
ZZDNEC 
ZZENEC 
ZZFNBC 
ZZAMKS 
ZZBMFS 
ZZCM  KS 
ZZDMKS 
ZZEMFS 
ZZFMKS 
ZZAT  AC 
ZZBTAC 
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COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
FETUBN 


FCE 
FOF 
FOE 
FCE 
FCE 


t  Cf  | 

i  *t$ 


[TAC) 

TAC'i 
TAC 


TC 
TC 
TC 


Z2CT AC 
ZZDTAC 
ZZETAC 


'PFTiCISS)     TO    ZZFFT1 


PFT2C1 


SS) 
SS) 


TO    ZZPFT2 
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I.       QCALIPICATION    COOMT    ROUTINE 

*  ROUTINE    NAME:     CNTQUAL.PRG 

*  MODULE    NAEE:     STANDAFD    REPCBT    GENERATOR 

*  VERSICN:5.3.2. 0 

*  AUIECR:    R.E.     PRUIEII 

*  DA1E:     C8DEC83 

*  VABIAELES    USED:    NONE 

*  VARIABIES    MODIFIED:    NONE 

*  VARIAELES    CREATED:     ZZSWIM r    ZZRFL,    ZZNARFL,    ZZPST,     ZZNAPST 

*  VARIABIES    RELEASED:    NONE 

*  FILES    CPENED/CLOSEE:    NONE 

*  TEMP    FILES   CREATED:    NONE 

*  USING    SOEFOUTINES:     IRNGSTAI.FRG 

*  DESCRIFTICN:     THIS    BCDTINE    FIFST    SAVES    ALL    MEMORY 

*  VARIAELES    IN    A    MEMORY    FILE    (ZZTOTAL1     AND    THEN    COUNTS    THE 

*  NUMEER    OF    PERSONS    TEAT    HAVE    NOT    COMPLETED    SWIMQUAL, 

*  RFLCUAL,     FSTQUAL    ANE    THOSE    PERSONS    NOT    REQUIRED    TO 

*  QUALIFY    WITH    THE    RIFLE   OR    PISTOL     (NA). 

COUNI  TO    ZZIOTAL 

COUNT  FOB  « **'  S(SWIMCOAL)     TO    ZZSWIM 

COUNI  FCF  •**•  $(RFLQUAL)  TO  ZZFFL 

COUNT  FOR  ■ NA'  $  (RFLQUAL)  TO  ZZNARFL 

COUNT  FOR  •**■ l(PSTQUAL)  TO  ZZPST 

COUNI  FOR  •  NA*  I  (FSTQDAL)  TO  ZZNAPST 

EETURN 


128 


G.       TBAINING   ROSTER    ECUTISE 

*  RODTINE    NAME:     TRNGECST.PRG 

*  MODULE    NAME:    STANDARD    REPORT    GENERATOR 

*  VERSICK:     5,4. 0 

*  AUTHOR:    R.    E.     FRUIEIT 

*  DATE:     20EEC83 

*  VARIABLES    USED:     MUNIT,    MPIAT,    CNECO,    TWOCOr     THREECO, 

*  FOUECO,    CNEPLT,    TWCFLT,    THBEIPLT,    FOURPLT 

*  VARIABLES    MODIFIED:    NONE 

*  VAEIAEIES    CREATED:    COUNT,     PROCEED 

*  VARIABLES    RELEASED:    NONE 

*  FILES     (OPENED/CLOSEE)  :    A:PERS    INDEX    A:ALPHPERS     (ALL    FILES 

*  CLOSED) 

*  TEMP    FILES    CREATED:    NONE 

*  USING    SOEEOUTINES:     SIDEPT.PRG     (5.0) 

*  DESCRIPTION:     THIS    ECUTINE     EECVIDES    THE    "TRAINING    ROSTER 

*  REPORT".       IT    STARTS    AT    THE    TCP    OF    THE    PERS.DBF    AND    LOCKS 

*  AI    EACH    RECORD    INDIVIDUALLY.        IF    A    RECORD    CORRESPONDS    TO 

*  THE    UNIT    SELECTED    EY    THE    USER.    THE    ROUTINE    TRNGRPT.PRG    IS 

*  CALLED    WHICH    COLLECTS    AND    EISPLAYS    THE    TRAINING    DATA    THAT 

*  CORRESPONDS    TO   THE    CURRENT    PERS.DBF    RECORD     (E.G.,    IF    THE 

*  USER    WANTS   TRAINING    DATA    CN    EVERY    MEMBER    OF    1ST    PLST,    A 

*  CO,    TRNGFCST.PRG    LOCATES    EACH    RECORD    IN    THE    PERS.DEF 

*  WHICH    EELCNG     TO    1ST    PLAT,     A    CO.  TRNGRPT.PRG    THEN 

*  DISPLAYS    THE    TRAINING    DATA    FROM    THE    APPROPRIATE    DATABASE 

*  FILES.).       INFORMATION    ON    ONE    INDIVIDUAL    IS    DISPLAYED    IN 

*  SIX    ROWS    AND    FOUR    SETS    OF    DATA    ARE    DISPLAYED    PER    SCREEN. 

*  THE    CSER    PRESS'S    THE    ENTER    KEY    TO  SCROLL    FORWARD    TO    EACH 

*  SUCCEEEING   SET    OF    3NEIVIDUAL    DATA. 

ERASE 

2    12,28    SAY    "TRAINING    ECSTEE    REPORT" 

2  22,0 

ACCEPT  "ERESS  'ENTER'  KEY  TO  CONTINUE"  TO  PROCEED 

ERASE 

SELECT    PRIMARY 

USE    A:EEES    INDEX    A:ALEHPERS 

GOTO    TOP 

STORE  0  TO  COUNT 

DO  WHILE  .NCT.  EOF 

EO  CASE 

CASE  '(MUNIT)  =  'E' 
DO  TRNGRPT 

STORE  COUNT  ♦  1  TO  COUNT 
CASE  !  (MUNIT)  =  'A'. AND.  !(MPLAT)  =  'E' 
IF  COMPANY  =  OKECO 
DO  TRNGRPT 

STCRE  CCUNT  ♦  1  TO  CCUNT 
ENEIF 
CASE  !  (MUNIT)  =  '£'  .AND.  !  (MPLAT)  =  'A' 

IE  COMPANY  =  OK  ECO  .AND.  PLATOON  =  ONEPLT 
DO  TRNGRPT 

STCRE  COUNT  ♦  1  TO  CCUNT 
ENDIF 
CASE  !  (MUNIT)  =  ■  V    .AND.  !  (MPLAT)  =  «B' 

IF  COMPANY  =  OKECO  .AND.  PLATOON  =  TWOPLT 
DO  TRNGRPT 

STCRE  CCUNT  ♦  1  TO  CCUNT 
ENDIF 
CASE  '.(MUNIT)  =  •*•  .AND.  !  (MPLAT)  =  'C 

IE  COMPANY  =  ONECO  .AND.  PLATOON  =  THREEPLT 
DC  TRNGRPT 

STORE  COUNT  «•  1  TO  COUNT 
ENDIF 
CASE  '(MUNIT)  =  •  £■  .AND.  !  (MPLAT)  =  'D« 

IF  COMPANY  =  OKECO  .AND.  PLATOON  =  FOURPLT 
DO  TRNGRPT 

129 


STCRE    CCUNT    ♦    1    TO    CCUNT 
ENEIF 
CASE     !  (MUNIT)     =     'E»    .AND.     !  (MFLAT)     =     'E1 
IF    COMPANY    =    TKCCO 
DO    TRNGEPT 

STORE    COUNT    +    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =     'E'     .AND.     !  (MPLAT)     =     '  A« 

IF    COMPANY   =    TKCCO    .AND.     PLATOON    =    ONEPLT 
EO    TRNGRPT 

STORE    CCUNT    ♦    1    TO    CCUNT 
ENEIF 
CASE    !  (MUNIT)     =     »E»    .AND.     !  (MPLAT)     =     »B« 

IF    COMPANY    =    TROCO    .AND.    PLATOON    =    TWOPLT 
DC    TRNGRPT 

STORE    CCUNT    *    1    TO    COUNT 
ENEIF 
CASE    !(MUNIT)     =    'E'     .AND.     !  (MPLAT)     =    »C« 

IF    COMPANY    =    TfcCCO    .AND.     PLATOON    =    THREEPLT 
DO    TRNGRPT 

STORE    CCUNT    ♦    1    TO    CCUNT 
ENEIF 
CASE     !  (MUNIT)     =     «E»    .AND.     .'(MPLAT)     =     'D' 

IF    COMPANY    =    TWCCO    .AND.    PLATOON    =    FOURPLT 
DC    TRNGHPT 

STCRE    CCUNT    +    1    TO    COUNT 
ENDIF 
CASE    !  (MUNIT)     =     *C»     .AND.     !  (MPLAT)     =    'E» 
IF    COMPANY   =    THEEECO 
DO    TRNGRPT 

STCRE    CCUNT    +    1    TO    CCUNT 
ENEIF 
CASE     !  (MUNIT)     =     »C«    .AND.     !  (MPLAT)     =    'A' 

IF    COMPANY    =    TEEEECO     .AND.     PLATOON    =    ONEPLT 
DO    TRNGRPT 

STORE    COUNT    +    1    TO    COUNT 
ENEIF 
CASE    !  (MUNIT)     =    'C     .AND.     !  (MPLAT)     =    ,B« 

IF    COMPANY    =    TEEEECO    .AND.     PLATOON    =    TWOPLT 
DO    TRNGRPT 

STCRE    CCUNT    +    1    TO    CCUNT 
ENEIF 
CASE     !  (MUNIT)     =     'C    .AND.     !  (MPLAT)     =     'C« 

IF    COMPANY    =    TEEEECO     .AND.    PLATOON    =    THREEPLT 
DC    TRNGRPT 

STCRE    CCUNT    ♦    1    TO    CCUNT 
ENDIF 
CASE     !  (MUNIT)     ■    *  C«     .AND.    !  (MPLAT)     =    'D' 

IF    COMPANY   =    THEEECO    .AND.     PLATOON    =    FOURPLT 
DO    TRNGRPT 

STCRE    CCUNT    +    1    TO    CCUNT 
ENEIF 
CASE     !  (MUNIT)     =     •£•    .AND.     !  (MPLAT)     =     'E1 
IF    COMPANY    =    FCIRCO 
DO    TRNGRPT 

STCRE    CCUNT    ♦    1    TO    CCUNT 
ENDIF 
CASE    !  (MUNIT)     =    '  D«     .AND.     !  (MPLAT)     =    »A' 

IF    COMPANY    =    FCURCO    .AND.     PLATOON    =    ONEPLT 
DO    TRNGRPT 

STCRE    CCUNT    +    1    TO    CCUNT 
ENDIF 
CASE    !  (MUNIT)     =     *Z*    .AND.     !  (MPLAT)     =     ,B« 

IF    COMPANY    =    FCURCO    .AND.    PLATOON    ■    TWOPLT 
DO    TENGRPT 

STCRE    COUNT    +     1   TO    COUNT 
ENEIF 
CASE     !(MUNIT)     =    «E«     .AND.     !  (MPLAT)     =     »C« 

IF    COMPANY    =    FCURCO    .AND.     PLATOON    =    THREEPLT 
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EC    TRNGRPT 

STCRE    CCDNT    +    1    TO    CCONT 
ENEIF 
CASE     !  (MUNIT)     =     •£•    .AND.     !  (MPLAT)     =     'D' 

IF    COMPANY    =    FCCRCO    .AND.    PLATOON    =    FOURPLT 
DC    TRNGEPT 

STORE    COUNT    -f    1    TO    COUNT 
ENDIF 
INDCASE 
IF    CCCNI    =    U 
3    22,0 

ACCEPT    "ERESS    •ENTER*    TO    CONTINUE"    TO    PROCEED 
STCRE    0    TO    COUNT 
ERASE 
INDIE 

SELECT    PFIMARY 
SKIP 
ENDDC 

RELEASE    CCUNT, PROCEEE,MSSN 
CSE 
RETURN 
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DRAINING   ROSTER    FCBHAT    BOUTINE 


HEPCRT    GENERATOR 


*  ROUTINE  NAME: 

*  MOEULE  NAME:  STAND2RE 

*  VERSION:  5.4. 1.0 

*  AUTHOR:    R.E.     PRUIETT 

*  DATE:     15EEC83 

*  VARIABLES    USED:    COUNT 

*  VABIAELES    MODIFIED 

*  VARIAEIES    CREATED: 

*  VAR3AEIES    RELEASED 

*  INEEX    E:QUALSSN,     B 

*  TEfiP    FILES   CREATED: 

*  USING    SUBROUTINES:  "iRNGROST.PRG 

*  DESCRIPTION:     THIS     ROUTINE     PROVIDES    THE    FORMAT    AND 

*  DISPLAYS    THE    "TRAINING    ROSTER    REPORT". 


PLATN3ME, 
NONE 
ROW.    MSSN 
NONE    *    FILES 


EST    INEEX    B:ESTSSN 


UNITNAME,     MPLAT,     MUNIT 


OPENED/CLOSED:     E:QUAL 


STORE  jC 
2  ROW,0 
2  ROW, 30 
2  ROW, 33 
STORE  SS 
SELECT  S 
USE  B:QC 
FIND  SMS 
2  ROW, 39 
ROW, 49 
ROW, 52 
ROW, 63 
ROfc,66 
ROW, 78 


SELECl  S 
USE  E:ES 
FIND  6«S 


CUN 

SAY 
SA 
SA 

N  T 

ICC 

AL 

SN 
SA 
SA 
SA 
SA 
SA 
SA 

ECC 

T  I 

SN 


T  *  6)  TO  ROW 
NAME 

Y  RANK 

Y  COMPANY 
C  MSSN 
NDARY 

INDEX    B:QU£LSSN 


"SWIM    QUflL    " 

SWIMQUAL 

"RIFLE    CUAL    ■ 

RFLQUAL 

"PISTOL    CUAL 

PSTQUAL 
NDARY 
NDEX     E:ESTSSN 


ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 
ROW 


EETURN 


,0 
,1 
,2 
,3 
,4 
,5 
,6 
,7 
,0 
,1 
,2 
,3 
,4 
,5 

.6 
,7 

,  1 
,1 

,2 
,3 
,4 
,5 


SAY 

6  SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 

6  SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 

0  SAY 

6  SAY 

2  SAY 
6  SAY 

3  SAY 

4  SAY 


"COD 
COC 
"MA 

HIS 
"MA 
MKS 
"DR 
COD 
"INT 
INT 
"MA 
MKS 
"TA 
TAC 
"NB 
NBC 
"PFT 
PFT1 
"PF 
PFT 
"  EQ 
UNI 
"FI 
AID 


E  OF  CONDUCT  " 

ECOR  HIS  " 

RKSMANSHIP  " 

ILL  " 

ERIOR  GUARD  " 

PKSMANSHIP  " 

C  MEASURES  " 

C  " 

1  " 
CISS 

11  " 

2CLSS 
UIP/UNIFORM  " 

RST  AID  " 
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MARKSMANSHIP  STAICS  ROUTINE 


ROD 

mol 

VEE 
AUT 
DAT 
VAE 
VAB 
VAR 
PST 
PCI 
VAR 
RFL 
FII 
TEM 
OSI 
DES 
CON 
RES 
PLA 
CAT 
CAI 
IS 
ERASE 
EO  CV 
DO  CA 
C 


TINE  N 

ULE  NA 

SICK: 

HCR:  R 

E:  28N 

IABLES 

IAELES 

IABIES 

SS,  ES 

E3EST. 

IAEIES 

MM,  RE 

ES  (CE 

P  EILE 

NG  SDB 

CRIETI 

TAINS 

ULTS  E 

TCCN. 

EGCFY 

CU1ATE 

AOTCMA 


AME:     KKS 
ME:     STAN 
5.6.  0 
.E.     PEUI 
CV83 
USED:UN 
MODIEIE 
CREATED 
TMM,     PST 
PCTSSPS 
RELEASE 
LUN,     FRO 
ENED/CLO 
S    CREATE 
EOUTINES 
CN:THIS 
THE    CURE 
CR    EACH 

THE    RES 
EOR    TEE 
E    AND    DI 
TIC ALLY 


STAT. 
D3RD 

ETT 


ERG 
REPORT 


GENERATOR 


ITNAME.PIAT 
D:NO  GLOBAL 
:  BFLEX,  RE 
UN,  RFLSHOT 
T,  PCTMMEST 
D:  PST????? 
CE5D,  ANALY 
SEE):ALL  CL 
D:MRKSTEMP, 
:STDRPT. ERG 
RCCTINE  CRE 
EM  YEAR  RI 
MEMBER  IN  T 
OITS  ARE  TC 
R2ELE  AND  P 
SELAYED  IN 
DISPLAYED    0 


NAME 

VARIABLES  MODIFIED 
ISS,  RFLMM,  RFLUN,  PSTEX, 
,  PCTEX,  PCTSS,  PCTMM,  PCTUN, 
,  PCTUNPST,  PROCEED,  ANALYZE6 
,  PCT?????,  RFLEX,  RFLSS, 
ZE6 
CSED 
MKSTEMP 

ATES  A  TEMPORARY  FILE  WHICH 
ELE  AND  PISTOL  QUALIFICATION 
HE  SELECTED  COMPANY  AND/OR 
TALED  BY  QUALIFICATION 
ISTOL.   PERCENTAGES  ARE 
A  SUMMARY  STATUS  REPORT  WHICH 
N  THE  SCREEN. 


AS 


CAS 


ENECA 
COUNI 
COUNT 
COUNT 
COUNT 
COUNI 
COUNT 
COUNI 
COUNT- 
ERASE 
STORE 
IF  RF 
STC 
STO 
STC 
STC 
ENDIF 
STORE 


FIUNIT 
SE 

E  !( 

CSE 
E  !  ( 

CSE 

CCPY 
CSE 
SEIE 
CSE 
SELE 
JCIN 
PSTQ 
CSE 
ASE  !  ( 
CSE 
CCPY 
.AND 
CSE 
SEIE 
CSE 
SELE 
JCIN 
ESTQ 
CSE 
SE 

FOR 

FOB 

FOR 

ECE 

FOB 

EOE 

FOB 

EOF 


MUNIT)=f 
E:QUAI 
MUNIT)<> 
A:PEES 

TO    MRKS 
MRKSTEMP 
CT    SECON 
ErQUAL 
CT    PEIMA 

TO    MKST 
UAL 

KKSTEMP 
MUNIT)<> 
A:PERS 

TO  MRKS 
.  PLATOO 
MRKSTEMP 
CT  SECON 
B:QUAI 
CT    PEIMA 

TO    MKST 
UAL 
MKSTEMP 

FLQUAI    = 

ELQUAL  = 
FLQUAI  = 
ELQUAL  = 
STQUAI  = 
STQUAL  = 
STQUAI  = 
STQUAL    = 


•  E1     .AND.     !  (MPLAT)  ='S« 

TEMP    ALL     FIELD    SSN    FOR    COMPAN Y=UNIT N AME 

DAEY 

RY 

EKE    FOR    E.SSN    =    S.SSN    FIELDS    RFLQUAL,; 


• E«     .AND     ! (M?LAT)<>'E« 

TEMP    ALL    FIELD    SSN    FOR    COMPAN Y=UNIT NAME; 
N    =    PLAT  NAME 

DSEY 

RY 

EKF    FOR    E.SSN    =    S.SSN    FIELDS    RFLQUAL,; 


•EX 

■  SS 
•KM 
•UN 
•EX 
•  SS 
'KM 
•UN 


TO 
TO 
TO 
TO 
TO 
TO 
TO 
TO 


RFIEX 
RFLSS 
RFIMM 
RFLUN 
PSTEX 
PSTSS 
PSTMM 
PSIUN 


(RELEX+RFLSS+RELMM+RFLUN)     TO    RFLSHOT 
ISHCT    >    0 

FE  (RELEX/RELSHCT*100)  TO  PCTEX 
BE  (RFLSS/RFLSHCT*100)  TO  PCTSS 
FE  <BELMM/BELSHCT*100)  TO  PCTMM 
FE     (EFLUN/EFLSHCT*100)      10    PCTUN 

(FSTEX+PSTSS+PSTMM+PSTUN)     TO    PSTSHOT 
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IF    PSTSHCT    >   0 

STCFE     (FSTEX/PSTSHCI*100)      TO    PCTEXPST 

STOEE     (FSTSS/PSTSHCT*100       TO    PCTSSPST 

STCFE     (PSTMM/PSTSHCT+100)     TO    PCTMMPST 

STCFE     (PSTUN/PSTSHCI*10Q)      TO    PCTUNPST 
ENDIF 

2    1 r  30    SAY    "MARKSMANSEIP    STATUS    REPORT" 
2    3,1    SAY    "RIFLE    EXPERTS " 

2  3,23    SAY    RFLEX 

3  3,3S    SAY    "PISTOL    E2EERTS " 

2  3,63  SAY  PSTEX 

2  5,1  SAY  "RIFLE  SHAFESHCOT ERS " 

2    5,  23    SAY    RFLSS 

2    5,39    SAY    "PISTOL    SHARPSHOOTERS " 

2   5, 63    SAY    PSTSS 

2    7,1    SAY    "RIFLE    MARFSMEN " 

2    7,2  3    SAY    RFLMM 

2    7,39    SAY    "PISTOL    MAEKSMEN " 

2    7,6  3    SAY    FSTMM 

2    9,1     SAY    "UNQUALIFIED " 

2   9,  23    SAY    RFLUN 

2    9,39    SAY    "UNQUALIFIED " 

2    9.63    SAY    ESTUN 

2    11,1    SAY    "TOTAL    " 

2    1 1  ,23    SAY    RFLSHOT 

2    11,39    SAY    "TOTAL " 

2    1 1  ,63    SAY    PSTSHOT 

2    15,34    SAY    "PERCENTAGES" 

2    16,34    SAY    " " 

IF    REISHCT    >   0 

9    18,1    SAY   "RIFLE    EXPERTS " 

S     18    2"    SAY    PCTEX 

a    19^1~SAY    "RIFLE    SHARPSH COT ERS " 

a    19,23    SAY    PCTSS 

a    20,1    SAY   "RIFLE    MARKSMEN " 

a    20,23    SAY    PCTMM 

a    21,1    SAY   "UNQUALIFIED " 

a    21,23    SAY    PCTUN 
ELSE 
'a     18,1    SAY    "NO    UNIT    MEMBERS    HAVE    FIRED    THE    " 

a    20,1    SAY   "RIFLE    FCR    QUA IIFICATION    THIS    YEAR." 
FNDIF 
IF    PSTSHCT    >   0 

a     18,39    SAY    "PISTOI    EXPERTS " 

a    18,63    SAY    PCTEXPST 

3     19,39    SAY    "PISTOI    SHARPSHOOTERS " 

a    19,63    SAY    PCTSSPST 

a    20,39    SAY    "PISTOI    MARKSMEN " 

a    20,63    SAY    PCTMMPST 

3    21,39    SAY    "UNQUALIFIED " 

a    21,63    SAY    PCTUNPST 
ELSE 

a    18,39    SAY    "NO    UNIT    MEMBERS    HAVE    FIRED    THE" 

3    20,39    SAY    "PISTOL    FOR    QUALIFICATION    THIS    YEAR" 
ENDIF 
2   22,0 

ACCEPT    "ERESS    'ENTER'    KEY   TC    CONTINUE"    TO    PROCEED 
RELEASE    ALL    LIKE    PST????? 
RELEASE    ALL    LIKE    PCT:???? 
ERASE 

ACCEPT    "DO     YOU    WANT    TC    DO    A    CC K E ANY/B ATT ALION    RANGE    QUOTA 
ANALYSIS?     (Y/N)      "    TO    ANALYZE6 
IF    I  (ANALYZE6)     =    '  Y' 

DC    F:CTASTUDY 
ENDIF 

RELEASE    EELEX, RFLSS, RFLMM, RFLUN, RFLS, PROCEED, ANALYZE 6 
CSE 
FETURN 


134 


J.       CCNJERT    UNIT   R0UTI3E 

*  ROUTINE    NAME:     CVRTUNIT.PRG 

*  MODCIE    NAME:     STANDAED    REPCRT    GENERATOR 

*  VERSION:    5.6. 1 .0 

*  AUTHOR:    R.E.     PRUIETT 

*  DATE:     28NCV83 

*  VARIABLES    USED:     MUNIT,    MPIAT,    ONECO,    TWOCO,    THREECC, 

*  FOUFCO,    CNEPLT,    TWCPLT,    THREEPLT,    FOURPLT 

*  VARIABIES    MODIFIED:    NONE 

*  VARIABLES    CREATED:     UNITNAME,    PLATNAME 

*  VARIABIES    RELEASED:    NONE 

*  FILES     (OPENED/CLOSEC)  :    NONE 

*  TEMP    FILES   CREATED 'NONE 

*  USING    SUEBOUTINES:  "MKSSTAT.PRG     (5.6.0)     AND    MOSSTAT.P3G 

*  (5.6. C) 

*  DESCRIPTION:     THIS    ROUTINE    STORES    THE    NAME    OF    THE    COMPANY 

*  AND    PLATCCN    SELECTEE    BY    THE    USER    DURING    ROUTINE 

*  SLCTUNIT'.       IT    IS    NECESSARY    BECAUSE    WHEN    THE    USER 

*  SELECTS    A    UNIT    AND    SUEUHIT    IT    IS    DONE    EY    MENU    SELECTION. 

*  ACCCREINGLY    THE   ONLY    THING    SIORED    INTO    MEMORY    IS    THE 

*  CORRESPONDING     LETTER    FROM    THE    MENU    PROVIDED    BY    THE 

*  SLCTUNIT. PRG     (A,     B.    C,    D,     E) .       SOME    SCREEN    DISPLAYS 

*  REQCIRE    THE    UNIT    NAKE     (    E.G.,    "A    CO"    VICE    "A"    )     SO    A 

*  CCNVEESION    IS    NECESSARY. 

CO  C  A  CE 

CASE  !  (MUNIT)  =«  A« 

STORE  ONECO  TO  UNITNAME 
CASE  !  (MUNIT)  =  •  B» 

STCRE  THOCC  TO  UNITNACE 
CASE  !  (MUNIT)=,C» 

STCRE  THREECO  TC  UNITNAME 
CASE  !  (MUNIT)  =»  D» 

STCRE  FOUECO  TC  UNITNAME 
ENECASE 

IF  !  (KUNII)  <>  •E' 
CO  CASE 

CASE  !  (KPLAT)  =»A» 

STCRE  ONEPLT  TC  PLATNAME 
CASE  !  (MPLAT)  =*B' 

"STORE  TWOPLT  TC  PLATNAME 
CASE  !  (KPLAT)  =  •  C  ' 

"STORE  THREEPLT  TO  PLATNAME 
CASE  !  (KPLAT) =«D» 

STCRE  FOURPLT  TC  PLATNAME 
ENDCASE 
INDIE 
RETURN 
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K.       QUOTA    STODT    ROUTIBE 

*  ROUTINE    NAME:     QTASICEY.PRG 

*  MODULE    NAME:     STANDHED    BEPCET    GENERATOR 

*  VERSION:    5.6. 2.0 

*  AUTHOR:    R.E.     PEUIETT 

*  DATE:     15EEC83 

*  VARIABLES    USED:    UNITNAME,     ELATNAME,     RFLSHOT,    RFLEX, 

*  RFLSS,    RFLMM,     FFLUN,    MUNIT,    QFEB,    QMAR, 
* ,QDEC 

*  VARIABLES    MODIFIED:    NO    GLCEAI    VARIABLES    MODIFIED 

*  VARIABLES    CREATED:    EFLNA,     MONTH,    TOTALREC,     MLEFT,     MSUM, 

*  NEEEEE,     IXTRA,    WHATIF 

*  VARIABIES    RELEASED:    MONTH.    WHATIF,     EXTRA,    NEEDED,    MSUK, 

*  MLEIT,    TOTALREC,     RELNA,    Q??? 

*  FILES     (OFENED/CLOSIE)  :    NONE 

*  TEMP    FILES   CREATED:    NONE 

*  USING    SEBEOUTINES:     SKSSTAT.PFG 

*  DESCRIPTION:     THIS     MODULE    IS    USED    BY    MKSSTAT.PRG    ANE 

*  DISPLAYS    THE    RANGE    QUOTAS    THAT    REMAIN    FOR    THE    CURRENT 

*  YEAR.       THE   CURRENT    MONTH    IS    EXTRACTED    FROM    THE    'LOG    ON 

*  DATE*     ANE    THE    RANGE    QUOTAS    FOR    EACH    UNIT    IS    STORED    IN    A 

*  MEMORY    FILE    DURING    THE    ANNUAI    INITIALIZATION    PROCEDURE. 

*  SUMM2FY    INFORMATION    IS    PROVIDED    CONCERNING    THE    RELATICN- 

*  SHIP    EITWEEN    REMAINING    RANGE    QUOTA    REQUIREMENTS    AND 

*  REMAINING    RANGE    QUCTA    ALLOCATIONS.       UPON    CONCLUSSION    OF 

*  THE    MCEULE   THE    USER    MAY    RETURN    TO    THE    STANDARD    REPORT 

*  MENE    OR    TC   A     SCRATCH    PAD    TO    REVISE    QUOTA    ASSIGNMENTS. 

*  REVISEE    QUOTA    ASSIGNMENTS    FROM    THE    SCRATCH    PAD    CAN    EITHER 

*  BE    SAVED    OR    IGNORED. 

ERASE 
EO    CASE 


CASE     '.(MUNIT)     <>     'E1     .ANE.     !(MPLAT)     =    'E' 
5)    1,15   SAY    "RANGE    QUOTA    ANALYSIS    FOR 


M 


2  1,40  SAY  UNITNAME 


CASE  !  (MUNIT)  <>  «E'  .ANE.  !  (MPLAT)  <>  '  E' 
3  1,15  SAY  "RANGE  QUOTA  ANALYSIS  FOR 


«i 


3    1,40    SAY    UNITbAME 

S     1,46   SAY    "." 

a    1,48    SAY    PLATiiAME 
CASE     !  (MUNLT)     =     '  E' 

a     1,15   SAY    "RAKGE    QUOTA    ANALYSIS    FOR    EATTALION" 
ENDCASE 

COUNT    ECF    RFLQUAL    ■     «NA'    TO    RFLNA 
STORE    $  (AADATE,3  ,2)     TC    MONTH 
GOTO    EOTTCM 
STORE    #    TC    TOTALREC 

2    4,1    SAY    "NUMBER    OF    MARINES    FIRED    FOR    QUALIFICATION; 
EURING" 
2    5. 1    SAS    "CURRENT; 

YEAR " 

2    5,5C    SAY    RFLSHOT 

2    6,1    SAY    "NUMBER    OF    MARINES    FIRED    FOR    QUALIFICATION; 

DURING" 

2    7,1    SAY    "CURRENT    YE3R    BUT     DIE    NOT; 


QUALIFY " 

2    7,50    SAY    EFLUN 


2    8,1    SAY    "NUMBER    OF    MARINES    NOT    REQUIRED    TO    QUALIFY; 

DURING" 

2    9, 1     SAY    "CURRENT; 

YEAR " 

2    9,5C    SAY    EFLNA 

STORE     (TCTALREC    -    RFLNA    -    RFLEX    -RFLSS    -    RFLMM)     TO    MLEFT 

2    10,1    SAY    "MARINES    IEFT    TO    QUALIFY    DURING    CURRENT; 

YEAR " 

2    10,50    SAY    MLEFT 
EO    CASE 
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CASE     !  (MUNIT)     =     •  Z* 

BESTOEE    FROM    A:ARNGQTAS    ADDITIVE 

CASE     !  (MUNIT)     =     »E' 

BESTORE    FROM     A:ERNGQTAS    ADDITIVE 

CASE     !  (MUNIT)     =     'C 

RESTOBE    FROM     A:CRNGQTAS    ADDITIVE 

CASE     !  (MUNIT)     ■     •  E» 

EESTCBE    FROM    A:ERNGQTAS    ADDITIVE 

CASE     IJMUNIT)     =     «E' 

RESTORE    FROM     A:ENRNGQTA    ADDITIVE 
ENDCASE 
CO    CASE 

CASE    MCNTH   =«01« 

3     12, 4    SAY    "FEB         MAR         APR         MAY         JUN         JUL  AUG; 

SEP         OCT         NOV  EEC" 

9     14,4    SAY      STR(CFSE,3) 

3     14,10    SAY       STR(CMAR,3) 

a     14,16    SAY       STR(CAFRe3) 

3     14,22    SAY    STR(QMAY,3) 

3     14,28    SAY    STR(CJDN,3) 

3     14,34    SAY    STR(QJUL,3) 

a     14,40    SAY    STR(CAUG,3) 

a     14,46    SAY    STR(QSEP,3) 

a     14,52    SAY    STR(QCCT,3) 

3     14,58    SAY    STR(QKCV,3) 

a     14    64    SAY    S TH  (CEEC    3) 

STCRE     (QEEB+    QMAR4    QAPR  +    QMAY  +    QJON+    QJUL+    QAUG  +    CSEP+ 

QCCT  +    C.NCV+    QEEC)     TO    MSU  B 

a     16,4    SAY    "A    TOTAL    OF    " 

a     16,15    SAY    STR  (MSUM, 3) 

a     16,19    SAY    "QUOTAS    REMAIN    ECR    THE    CURRENT    YEAR." 
CAS.E    MCNTE   =,02« 

a    12,4    SAY    "MAR  APR  KAY         JUN         JUL  AUG         SEP; 

OCT         NOV         DEC" 

3     14,4    SAY      STR(Q£AR.3) 

3     14,  10    SAY       STR[CAPR.3) 

a     14,16    SAY    STR  (C?AY,3) 

a     14,22    SAY    STR(QJUN,3) 

a     14,28    SAY    STR(£0UL,3) 

a     14,34     SAY    STR(QAUG,3) 

a     14,40    SAY    STR(QSEP,3) 

a     14,46    SAY    STR(QCCT,3) 

a     14#52    SAY    SIR(QKCV,3) 

a     14,58    SAY    STR(QCEC,3) 

STCRE     (QMAR+     QAPS+    QMAY*     QJUN+    QJUL+    QAUG*    QSEP+    QOCT+ 

CNCV+    QEEQ      TO    MSUM 

a     16,4    SAY    "A    TOTAI    OF    " 

a     16,15    SAY    STR  (MSUM.  3) 

a     16,19    SAY    "QUOTAS    REMAIN    ECR    THE    CURRENT    YEAR." 
CASE    MCNTE   ~  '  0  2* 

a    12,4    SAY    "APR  KAY  JUN         JUL         AUG         SEP         OCT; 

NCV         EEC" 

a     14,4    SAY      STR(QAPR,3J 

a     14,  10    SAY    STR (QMAY,3 

a     14,16    SAY    STR(CoCN,3] 

a     14,22    SAY    STR(CJUL,3 

a     14,28    SAY    STR(CAUG,3] 

a     14,34    SAY    STR(QSEP,3) 

3     14,  UO     SAY    STR{QCCT,3) 

a     14,46    SAY    STR(QNCV,3) 

a     14,52    SAY    STR(QEEC,3) 

STCRE     (CAPR+QMAY+CJQN+QJUL+QAUG+QSEP+QOCT+QNOV+QDEC) 

IC    MSCM 

a     16  ,4    SAY    "A    TOTAI    OF    " 

a     16,  15    SAY    STR  (MSUM. 3) 

a     16,19    SAY    "QUOTAS    REMAIN    FCR    THE    CURRENT    YEAR." 
CASE    MCNTE   =  ,04« 

a     12,4    SAY    "MAY  JUN         JUL         AUG         SEP         OCT  NCV; 


DEC" 
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5) 

a 

a 

a 
a 
a 

d 


1U 

14 
14 
14 
14 
14 
14 
14 


STCE 
a  16 
a  16 
a    16 

CASE 

a   12 


a 
a 
a 
a 
a 
a 
a 


14 
14 
14 
14 
14 
14 
14 


stcb£ 
a  16 
a  16 
a    16 

CASE 

a   12 


a 

a 

a 
a 
a 
a 


14 
14 
14 

14 
14 

STCBE 

a  16 
a  16 
a    16 

CASE 

a  12 
a    14 


14 

14 
14 
14 


STCB 

a   16 

a 

a 

CAS 

a 


a 
a 
a 
a 


16 

16 

E 

12 

14 

14 

14 

14 


STCB 
a     16 


16 

16 

E 

12 

14 

14 

14 
STCB 
2     16 

a   16 
a    16, 

CASE    MCNT 
a     12,4    S 


a 
a 

CAS 

a 
a 
a 
a 


4    s 

10 

16 

22 

28 

34 

40 

48 

(C 

4    S 

15 

19 

CNT 

4    S 

4    S 

10 

16 

22 

28 

34 

40 

(Q 
4  S 
15 
19 
CNT 
4  S 
4  S 
10 
16 
22 
28 
34 

<C 

4  S 

15 

19 

CNT 

4  S 

4  S 

10 

16 

22 

28 

«(i 

15 
19 

CNT 
4  S 
4  S 
10 
16 
22 

,  <£ 

4  S 

15 
19 

CNT 
4  S 
4  S 
10 
16 

<Q 
4  S 
15 
19 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


AY    STE(QM 
SAY    STB 
STB 
STR 
STB 
STB 
STB 
STB 
MAY  +  QJUN"* 
AY    "A    TOT 
SAY    STEIH 
SAY    "COOT 
H   ='05« 
AY    "JUN 
AY    STBjQJ 
STB 
STB 
STR 
STB 
STR 
STR 


iAS, 3) 

I  JUN,  3) 

:jul,3) 
:adg,3% 

)SEP^3| 

;cct,3| 

!NCV,3} 
)EEC,3) 
CJUL+QA 
'AI    OF    " 
SUM,  3) 
AS    REMA 


UG+QSEP+QOCT+QNOV+QDEC)     to    MSUM 

IN    ECR    THE    CURRENT    YEAR." 
AUG  SEP  OCT  NOV  DEC" 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


G 

Q 
C 
Q 
Q 
,Q 

JUN+QJUL+ 
AY  "A  TOT 
SAY  STR(M 
SAY  "QUOT 
H  ='06» 
AY  "JUL 
AY  STB(QJ 
SAY  STR(Q 
STR 
STR 
STR 
STR 


SAY 
SAY 
SAY 
SAY 


C 
Q 

2 

JUL+QAUG+ 
AY  "A  TOT 
SAY  STR  (M 
SAY  "CUOT 
H  =' 07* 
AY  "AUG 
AY  STB(QA 
SAY  STR(Q 
SAY  STRfQ 
SAY  STR(Q 
SAY  STR(C 
AUG+QSEP+ 
AY  "A  TOT 
SAY  STRfM 
SAY  "QUOT 
K  ='08' 
AY  "SEP 
AY  STRjQS 
SAY  STB(C 
SAY  STB(Q 
SAY  STB(C 
SEP+QOCT  + 
AY  "A  TOT 
SAY  STBfM 
SAY  "QUOT 
E  =»09« 
AY  "OCT 
AY  STB(QO 
SAY  STE(Q 
SAY  STB(Q 
CCT+QNOV  + 
AY  "A  TOT 
SAY  STB  (M 
SAY  "QUOT 
H  =•  10' 
AY    "NOV 


JUL 
UN, 3) 
JUL, 3 
AUG,  3 
SEP, 3 
CCT,3 
NCV,3 
EEC, 3, 

QAUG+QSEF+QOCT+QNOV+QDEC)     TO    MSUM 
AL    OF    " 
SUM, 3) 
AS    EEMAIN    FOB    THE    CUBBENT    YEAB." 

AUG  SEP         OCT         NOV  DEC" 

01,3) 
AUG,  3 
SEP, 3 
CCT,3 
KCV,3 
EEC, 3) 
CSEP+QO 
AL    OF    " 
SUM, 3) 
AS    BEMA 


CT+CNOV+QDEC)     TO    MSUM 

IN    FOR    THE    CURRENT    YEAR." 
OCT         NOV         DEC" 


SEP 
CG,3) 
SEP,  3) 
CCT,3) 
NOV,  3) 
EEC, 3) 

CCCT+QNOV+QCEC)      TO    MSUM 
AL    OF    " 


SUM,  3) 
AS    REMA 


IN    FOR    THE    CURRENT    YEAR." 
NOV  DEC" 


CCT 

CCT, 3) 
NCV,3) 
EEC,  3) 

CNOV+QDEC)     TO    MSUM 
AI    OF    " 


SUM, 3) 
AS    REM 


AIN    FOR    THE    CURRENT    YEAB." 
EEC" 


KOV 
CT.3) 
KCV,3) 
EEC,  3) 

CEEC) 

AL    OF 

SUM, 3) 

AS    REMAIN    FOR    THE    CURRENT    YEAR." 

EEC" 


TC    MSUM 
ti 
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a 

a 

si 

a 

a 

a 

CAS 

a 

a 

si 

a 

a 

a 

CAS 

a 

ENDCA 

EO    CA 

CA 


CA 


CA 


ENECA 
a    19, 

2    20, 

2  21, 

3  22, 

ACCEP 
IF    !  ( 

DO 
INDIE 
RE  LEA 
BELEA 
EETDB 


14,  U  S 
14,  10 

CBS     (C 
16,4    S 
16,  15 
16,19 
E    MCNT 
12,4    S 
14,4    S 
CBE     (Q 
16,4    S 
16,15 
16,  19 
E    MCNT 
14,  10 
SE 
SE 

SE  (MS 
3  18,4 
IEFI    I 

a  18,6 

SE  (ML 
3    18,4 

STOBE 

a  18,1 
a   ie.i 

SE     (MS 

a  18,4 

STCBE 

a  18, 1 
a   18,1 

SE 

1    SAY 

sn 

SAY 


STE(QNCV,3) 
STB  15 EEC,  3) 


AY 

SAY 

NOV+QEEC)     TO"  MSUM 

AY    "A    TOTAI    OF    " 

SAY    STR(MSUM,3) 

SAY    "QUOTAS    REI 

B   =•  1  V 

AY    "DEC" 

AY    STR(QDEC,3) 

EEC)     TO    MSUM 

AY    {«A    TOTAL    OF    " 

SAY    STR  (MSUM, 3) 

SAY    "QUOTAS    REMAIN 

H   =•  12' 

SAY    "THIS    IS    THE    LAST 


!1AIN    FOR    THE    CURRENT    YEAR." 


FOR    THE    CURRENT    YEAR." 

MONTH    IN    CALENDAR    YEAR" 


1 
1 
0 

I    "SEL 

WHATIF 

B:C.UO 

SE  MCN 
SE  ALL 
N 


UM   =     MLEFT) 

SAY     "REMAINING    QUOTAS    EQUAL    NUMBER    OF     MARINES; 
C    QUALIFY.." 
4    SAY    STR  (KSUM,3  ) 
EFT    >    MSUM) 

SAY    "YOU    KEED    " 
(MLEFT    -    MSUM)     TO    NEEDED 
3    SAY    STR  (SEEDED, 3) 

9   SAY    "MOBE    QUOTAS    FOR    THE    YEAR." 
UM   >    MLEFT) 

SAY     "YOU    EAVS    " 
(MSUM    -    MIEFT)    TC    EXTRA 
3   SAY    STR  (EXTRA,  5) 
8    SAY    "EXTBA    QUOTAS." 

"  SE  L  E  CT    0  £  E  " 

"A. ..CHANGE    QUOTAS    ON    SCRATCH    PAD" 

"B. ..BETUBK    TO   STANEABD    REPORT    MENU" 

ECT    OPTION   ===>    "    TC    WHATIF 
)    =     •  A« 

TAPAD 

IH, WHATIF  .EXTRA,  SEEDED, MSUM, MLEFT, TOT ALREC, RELNA 
LIKE    Q??? 
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L.   QUOTA  SCRATCB  PAE  ROUTINE 


* 

* 

* 

* 
* 

* 

* 
* 

* 


ROD 
MOE 
VER 
AUT 
DAT 
VAF 
VAR 
VAR 
QFE 
VAE 
PIC 
FIL 
TEM 
OSI 
DES 
INI 
QUC 
EAC 
BAS 
REP 
SO 


TINE  N 
ULE  NA 
SICK: 
ECE:  E 
E:  5DE 
IAELES 
IABIES 
IAEIES 
E-  .  .QE 
IABIES 
KMNTH, 
ES  (OF 
E  E1LE 
NG  SEB 
CFIETI 
ER-ACT 
TAS. 
H  TIME 
E  EAT  A 
IACE  I 
EY    SEL 


AME:     QUOT 

ME:    STAND 

5.6  .2.1.0 

.E.     PRUIE 

C83 

USED:    ML 

MODI  EI  ED 

CREATED: 

EC,    EXTEA 

RELEASED 

CONTINUE 

ENED/CLOS 

S    CREATED 

EOUTINES: 

CN:     THIS 

IVELY    MOD 

THIS    CAN 

RETOENIN 

HOWEVE 

HE    MONTHL 

ECTING   TH 


AEAD.PRG 

ARE    REPCRT    GENEEATOB 

TT 

EETr    MUNIT 

*FICKMNTH,  TEMPSUM,  WHICHWAY,  CONTINUE, 

:  Q???,  MLEFT,  TEMPSUM,  WHICHWAY, 
,  EXTRA 
EE)  :  NONE 

:  NONE 

CTASTUDY.  ERG 
MCDULE  GIVES  THE  USER  AN  CPPORTUNITY  TC 
IEY  THE  REGAINING  MONTHLY  RANGE 
EE  DONE  AN  UNLIMITED  NUMBER  OF  TIMES 
G  TO  THE  ACTUAL  MONTHLY  ALLOCATION  AS 
E,  IF  THE  USER  ELECTS  TO  PERMANENTIY 
Y  QUOTA  ALIOCATION  IN  MEMORY,  HE  MAY  DO 
E  'REPLACE  CURRENT  QUOTAS1  OPTION. 


STORE  I  TO  EICKMNTH 
SET  CCLCN  OEF 


DO  CASE 

CASE  MCNT 

DO  KHI 

EO  CAS 

CAS 

CAS 

CAS 

CAS 

CAS 

ENECAS 
ERA 
2  2 
2  4 
CAL 
2  5 
CUE 
2  6 
*** 

2  8 
AUG 

2  1 

2  1 

2  1 

2  1 

2  1 

2  1 

2  1 

2  1 

a  1 

2  1 

2  1 
EEA 


E   =•  0  V 

IE  PICKMN 
E 

E  !  (MUNIT 
EESTOEE  F 
E  !  (MUNIT 
RESTORE  F 
E  !  (MUNIT 
RESTORE  F 
E  !  (MUNIT 
EESTOBE  F 
E  !  (MUNIT 
EESTORE  F 
E 

SE 

,15  SAY  " 
,5  SAY  "S 
CULATIONS 
,5  SAY  "0 
RENT  QUOT 
,0    SAY    "* 

,5    SAY    "F 

SEP 
0,4    GET    Q 
0,10    GET 


TH    =    T 

)    =  »A« 

ECM  A:ABNGQTAS    ADDITIVE 

)    =  'B* 

ECM  AlBENGQTAS    ADDITIVE 

)    =  'C 

ECM  A:CENGQTAS    ADDITIVE 

)  =  'D' 

ECM  A'.DENGQTAS  ADDITIVE 

)  =  «E' 

ECM  A:BNRNGQTA  ADDITIVE 


0,16 
0,22 
0,28 
0,34 
0,40 
0,46 
0,52 
0,58 
0,64 
E 


GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 


RIFLE  R 

FACE  BE 

AND  WI 

MY  IF 

AS1  OPT 
******* 

44***** 

EE    MA 

OCT    N 

EEE  PIC 

QMAR  PI 

CAFE 

CMAY 

COUN 

CJUL 

CAUG 

QSEP 

CCCT 

CNOV 

CEEC 


ANGE  QUOTA  SCRATCH  PAD" 

LOW  THIS  LINE  IS  FOR; 

IL  EE  SAVED" 

YOU    SPECIFY    THE    'REPLACE; 

ION    " 
*********************** 

********  ii 

E         APR         MAY         JUN         JUL; 
OV         DEC" 


PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 
PI 


TURE 

CTURE 

CTUFE 

CTUBE 

CTUBE 

CTURE 

CTUEE 

CTUEE 

CTUFE 

CTUEE 

CTUFE 


999' 
•999 
•999 
•999 
•999 
'999 
•999 
•999 
•999 
•999 
•999 


a  12,4  SAY  "A  TOTAL  OF  " 

STORE  (QFEB+QMAR+QAPR+QMAY+QJUN+QJUL+ 
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QAUG+QSEF  +  QOCT+QNOV+QDEC)_ 
a 

a 


12, T5     SAY    STR(TEMBSUM, 3) ' 
12,19    SAY    "QUOTAS    REMAIN 


TO    TEMPSUM 
FOR    THE    CURRENT    YEAR 


EC    CASE 

CASE     (TEMPSUM    =   MLEFI) 

3    14,4     SAY    "QUCTAS    EQUAL 

LEFT    TO    QUALIFY " 

a     14,53    SAY    STB  (TEKFSUM,3) 

CASE     (MLEFT   >    TEMPSUM) 

3    14,4     SAY    "YOU    NEED    " 
STORE     (MLEFT   -    TEMPSUM)     TO 
3     14,13    SAY    STE  (NEEDED, 3) 
a     14,19    SAY    "MORE    QUOTAS." 

CASE     (TEMPSUK    >    MLEFT) 

a    14,4    SflY    "YOU    HAVE    " 
STORE     (TEMPSUM    -    MLEFT)     TO 
a     14,13    SAY    STR  (EXTRA,3) 
3     14,18    SAY    "EXCESS    QUOTAS. 

ENDCASE 


NUMBER    OF    MARINES 


NEEDED 


EXTRA 


a  15,24  SAY 
3  16,  18  SAY 
a    17,18    SAY 

SELECTION    MENU" 

a    18,18    SAY       "C.  .PERMANENTLY    REPLACE   ORIGINAL    QUOTAS" 

ACCEPT    "SELECT    CNE   ===>    "    TO    WHICHWAY 


"SEIECT    ONE    CPTION" 

"A. ..START    AGAIN     KITH    ORIGINAL    QUOTAS" 
"E... RETURN    TO    STANDARD    REPORT: 


DC    CASE 

CASE    ! (WHIC 

STORE    F 

CASE    !(WHIC 

ACCEPT    " 

ORIGINAL 

IF    CCNTI 

DO    CA 

CA 

CA 

CA 

CA 

CA 

ENDCA 
STORE 

ELSE 

STORE 

ENDIF 
ENCCASE 


KWAY)     =     •B* 

TC    PICKMNTB    * 

EWAY)     =     »C» 

EC    YOU     WANT    TO    PERMANENTLY    REPLACE    THE; 

SET   OF    QUOTAS     (Y/N) ?" ;    TO   CONTINUE 
SUE 
SE 
SE    !  (MUNIT)     =    'A' 

SAVE    TO    A:ARNGQTAS    ALL    LIKE 


SE    !  (MUNIT).   =    •  B» 

2    TO    A:BRNGQTAS    ALL    LIKE 


Q?  ?  ? 
Q??? 
Q??? 


SAV 
SI    !  (MUNIT)     =    'C 

SAVE    TO    A:CRNGQTAS    ALL    LIKE 
SE    MMUNIT)     =    'D' 

SAVE    TC    A:DRNGQTAS     ALL    LIKE    Q??? 
SI    I  (MUNIT)     ■    '  E1 

SAVE   TC    A:ENRNGQTA    ALL    LIKE 
SE 

E    TO    PICKMNTH 

F    TO    PICKMNTH 


»-?•?"? 


ENEDC 

CASE    MCNTH   =  '02» 

EO    WHILE    PICKMNIE    =    T 
DO    CASE 

CASE    '(MUNIT)    =    'A* 

BESTOEE    FECM    A:ABNGQTAS    ADDITIVE 
CASE    UHONIT)    =    ,B« 

BESTOEE    FFCM    A:BENGQTAS    ADDITIVE 
CASE    I  (MUNIT)     ■    »C» 

BESTOEE    FECM    A:CRNGQTAS    ADDITIVE 
CASE    ! (MUNIT[    =    «D« 

BESTOEE    FBCM    A:DBNGQTAS    ADDITIVE 
CASE    I  (MUNIT)    =    «E« 

EESTOBE    FBCM    A:BNRNGQTA    ADDITIVE 
ENECASE 
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ERASE 
5    2,15 

a  a  ,5 

CAICUL 

a  5,5 

CUBBEN 

a  6  ,o 
****** 

a  8,5 
aug 
a  ic 

3 
3 

a 
a 
a 

a 
2 
a 


BEAD 


1  L',1 
10,1 
10,2 
10,2 
10,3 

10, a 
10, a 

10,5 
10,5 
10,6 


SAY    " 
SAY    "S 

ATIONS 
SAY  "0 
T  QUOT 
SAY    »* 

****** 

SAY    » 

SEP 

0  GST 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 
GET 


BIFLE    RANGE    QUOTA    SCRATCH    PAD" 

EACE    BELCW    THIS    LINE    IS    FOR; 

AND    WILL    EE    SAVED" 

MY    IF    YCU    SPECIFY    THE    'REPLACE; 

AS'    OPTION    " 
******************************** 

*******  *****!! 


CCT 

CKAR 

QAPR 

C*AY 

CJ0N 

COUL 

CAUG 

CSEP 

CCCT 

CKCV 

C.EEC 


MAR 
NOV 


APB         MAY 
DEC" 


JUN 


JUL; 


PICTUBE 
PICTURE 
PICTUBE 
PICTURE 
PICTUBE 
PICTURE 
PICTURE 
PICTURE 
PICTUBE 
PICTURE 


•999 
•999 
•999 
•999 
•999 
•999 
•999 
•999 
•999 
•9  99 


3    12, U    SAY    "A    TOTAL    OE    " 

SIC RE     (QMAR+CAPR+QMAY+CJUN+QJUL+; 

CAUG+QSEP+QOC1+QNOV+QDEC[    TO    TEMPSUM 

a    12,15    SAY     SIR  (TEMPSUM ,  3) 

3    12,19    SAY    "CUOTAS    REMAIN    FOR    THE    CURRENT    YEAR." 

CO    CAS  E 

CASE     (TEMPSUM    =    MLEFT) 

a)     14,4    SAY    "QUOTAS    EQUAL    NUMBER    OF    MARINES; 

LEFT    TO    CUALIFY. . ." 

S     14,53    SAY    STB  (TEtPSUM,3) 
CASE     (MLEFT    >    TEMPSUM) 

a  14,4  SAY  "YOU  NEED  '« 

STORE  (MIEFT  -  TEMPSUM)  TO  NEEDED 

a    14,13    SAY    STB  (NEEDED, 3)- 

a    14,19    SAY    "MORE    QUOTAS." 
CASE     fTEMPSUK    >    MLEFT) 

3     14,4    SAY    "YOU    HAVE    " 

STORE     (TEMPSUM    -    MLEFT)     TO    EXTRA 

a     14,13    SAY    STR(EXTRA,3) 

a    14,18    SAY    "EXCESS    QUOTAS." 
ENDCASE 

a    15,24    SAY    "SEIECT    ONE    OPTION" 

a     16,18    SAY    "A. ..START    AGAIN    WITH    ORIGINAL    QUOTAS" 

a     17,18    SAY       "E...BETUEN    10    STANDARD    REPORT; 

SELECTION    MENU" 

3    18,18    SAY       "C... PERMANENTLY    PEPLACE    ORIGINAL; 

QUCTAS" 

ACCEPT    "SELECT    CNE   ===>    "    TO    WHICHWAY 


(WHICHWAY) 

"ICKMNTH 


=     'B 


(Y/N)  ?"    TO    CONTINUE 


CO    CASE 
C  A  CE    ! 

"STOBE    F    TC    P' 
CACE    !  (WHICHWAY)     =     'C' 

"ACCEPT    "EC    YOU     WANT    TO    PERMANENTLY    REPLACE    THE; 
ORIGINAL    SET    OF    QUCTAS 
IF    CCNTIKOE 
DO    CASE 

CASE    !  (MUNIT)     =    •  A1 

SAVE    TC    A:ARNGQTAS 
CASE     !(MUNIT)    =    ■  B1 

SAVE    TO    A:BRNGQTAS 
CASE    JJMUNIT)    =    »C« 

SAVE    TC    A:CRNGQTAS 
CASE    !(MUNIT)    =    fD' 
SAVE    TO    A:DRNGQTAS 


ALL 
ALL 
ALL 
ALL 


LIKE 
LIKE 
LIKE 

LIKE 


Q??? 

Q??? 
Q??? 
Q??? 


142 


CASE    !  (MO  NIT)     =    ■ E« 

SAVE    TO    A:3NRNGQTA    ALL    LIKE    Q??? 
ENDCASE 

STORE    E    TO    PICKMNTH 
ELS  E 

STORE    F    TO    PICKMNTH 
ENDIE 
ENECASE 


ENEDO 

CASE    MCNT 

EO    SHI 

DO    CAS 

CAS 


H  =*0 
IE  PI 
E 

(M 


3« 

CKMNTE    = 


UNIT)     = 

BESTOBE  FECM 
CASE    !  (MUNIT)     = 

BESTOBE  FBCM 
CASE    !  (MUNIT)     = 

BESTOBE  FBCM 
CASE    ! (MUNIT)     = 

BESTOBE  FBCM 
CASE  !  (MUNIT)  = 
BE    F5CM 


ENECAS 
EBA 
a  2 
2  a 
CAI 
2  5 
CUB 

a  6 

*** 

2  8 

AUG 
2    1 


BEA 


M 
EESTO 
E 

SE 

,15  S 
.5  SA 
CULAT 
,5  SA 
BENT 

.0  SA 
***** 

,5  SA 
SE 
0,16 
0,22 
0,28 
0,34 
0,U0 
0,46 
0,52 
0,58 
0,64 
E 


•A1 

A:A 
'3* 
A:B 
•C« 

A:C 

•D» 
A:D 

•E« 
A:3 


AY     "BIFLE    R 

Y  "SEACE    BE 
IONS    AND    HI 

Y  "OSIY    IF 
QUOTAS1    OPT 

Y      II******** 

*********** 

Y  •• 

F  OCT  N 

GET  CAER  PI 

GET  CMAY  PI 

GET  CJUN  PI 

GET  QJUL  PI 

GET  CAUG  PI 

GET  CSEP  PI 

GET  CCCT  PI 

GET  CNOV  PI 

GET  QEEC  PI 


BNGQTAS  ADDITIVE 

BNGC.TAS  ADDITIVE 

BNGCTAS  ADDITIVE 

RNGCTAS  ADDITIVE 

NBNGQTA  ADDITIVE 


ANGE    QUOTA    SCRATCH    PAD" 

LOW    THIS    LINE    IS    FOR; 

LL    BE    SAVED" 

YOU  SPECIFY  THE  'REPLACE; 

ION  " 
*************************. 

*****!! 


CV 


APR 
DEC" 


MAY 


JUN 


JUL; 


CTUBE 
CTUBE 
CTUBE 
CTUBE 
CTUBE 
CTUBE 
CTUBE 
CTUBE 
CTUBE 


19991 

19991 
19991 
19991 
19991 

•  9991 

•  9991 
19991 
19991 


a  12,4 

STCBE 


SAY    "A    TOTAL    OF    " 
(QAPB  +  QMAY+QJUN  +  QJUL  + 
SEE+QOCT+QNOV+QEEC" 


:,3 


t6  tempsum 


QAOG+Qi 

2    12,15     SAY    STB  (TEMES~UM,3) 

2    12,19     SAY    "QUOTAS    REMAIN    FOR    THE    CURRENT    YEAR." 


EC    CASE 

CASE     (TEMPSUM    =    MLEFT) 
d     14,4     SAY    "QUOTAS 

LEFT    TO    QUALIFY ' 

3     14,53    SAY    STB  (TEKPSUM,3) 

CASE     (MLEFI    >    TEMPSUM) 


EQUAL    NUMBER    OF    MARINES 


4,4     SAY    "YOU    NEED    " 

STOBE     (MLEFT    -     TEMPSUM)     TO    NEEDED 

2)     14,13    SAY    STB  (NEEDEDr3) 

2.     14,19    SAY    "MOEE    QUOTAS." 
CASE     (TEMPSUM    >    MLEFT) 

a)     14,4    SAY    "YOU    HAVE    " 

STOBE     (TEMPSUM    -    MLEFT)     TO    EXTBA 

o>     1U,  13    SAY    STR(EXTRA,3) 

d     14,18    SAY    "EXCESS 
ENDCASE 


quotas. 


143 


S     15,24    SAY    "SELECT    ONE    OPTION" 

3    16,18    SAY    "A. ..START    AGAIN    WITH    ORIGINAL    QUOTAS" 

.RETURN    TO    STANDARD    REPORT; 


3    17, 18    SAY       "E 

SELECTION    MENU" 

3     18,18    SAY       "C 

QUOTAS" 

ACCEPT   "SELECT    CNE    ===> 


.PERMANENTLY    REPLACE   ORIGINAL; 


TO    WHICHWAY 


EO 


CASE 

CASE  !  (WHICKW 
STORE    F    TO 

CASE    !  (WHICHK 

ACCEPT    "EC 

ORIGINAL    S 

IF    CONTIKU 

DO    CASE 

CASE 

c 


AY)    =     «B' 

PICKMNTH 
AY)    =     »C 

YOU     WANT    TO    PERMANENTLY   REPLACE 
ET    OF    QUCTAS     (Y/N)?"    TO    CONTINUE 

E 


THE; 


CA 
CA 
CA 


!  (MUNIT)    =    •  A' 
AVE    TC    A:ARNGQTAS    ALL    LIKE 
!  (MUNIT)     =    »B' 

AVE    TO    A:BRNGQTAS    ALL    LIKE 

!  (MUNIT)  ■  'C« 
AVE    TO    A;CRNGQTAS    ALL    LIKE 

!  (MUNIT)  =  «D« 
SAVE    TO    A:DRNGQTAS    ALL    LIKE 


ENDCA 
STORE 

ELSE 

STORE 

ENDIF 
ENECASE 


SE 

c 

SE 

c 

SE 
c 

CASE    !  (MUNIT)     =    *E 
S* 
SE 
P 


AVE    TC    A:BNRNGQTA    ALL    LIKE 
TO    PICKMNTH 


Q??? 
Q??? 
Q??? 
Q??? 
Q??? 


F    TO    PICKMNTH 


ENDDC 

CASE    MCNT 

DO    SHI 

EO    CAS 

CAS 

CAS 


CASE 

CAS 

CAS 

ENDCAS 
ERA 
9    2 

S  4 

CAL 

a  5 

CUR 

a  6 

4*4 

a    8 

AUG 

a   1 
a 

3 

a 

3 

2 
3 

2 


e  =  f04« 

LE    PICKMN 

E 

E    !  (MUNIT 

RESTORE    F 

E    !  (MUNIT 

FESTORE    F 

E    !   (MONIT 

EESTORE    F 

E    !  (MUNIT 

RESTORE    F 

E    !  (MUNIT 

RESTORE    F 

E 

SE 

,15    SAY    " 

,5    SAY    "S 

CULATIONS 

,5    SAY    "0 

RENT    QUOT 

,0    SAY    "* 

********* 

,5    SAY    " 

SEP 
0,22    GET 


TH    =    T 


IcM 
RCM 
RCM 
RCM 
RCM 


•A1 

A:A 
•B' 
A:B 
•C» 

A:C 
•D« 
A:D 

A:B 


REA 


0,28 
0,34 
0,40 
0,46 
0,52 
0,58 
0,64 
D 


GET 
GET 
GET 
GET 
GET 
GET 
GET 


RIFLE    R 

FACE    BE 

AND    WI 

SLY    IF 

AS'  OPT 
******* 

■j>  if  ***** 

CCT         N 

C*AY  PI 
QJUN  PI 
CJUL  PI 
QAUG  PI 
CSEP  PI 
CCCT  PI 
CNCV  PI 
QEEC  PI 


RNGQTAS  ADDITIVE 
RNGQTAS  ADDITIVE 
RNGQTAS  ADDITIVE 
RNGQTAS  ADDITIVE 
NRNGQTA  ADDITIVE 


ANGE  QUOTA  SCRATCH  PAD" 

LOW  THIS  LINE  IS  FOR; 

LL  EE  SAVED" 

YOU    SPECIFY    THE    'REPLACE; 

ION    " 
************************* . 

*****!( 


ov 

CTUFE 

CTURE 
CTUFE 
CTURE 
CTUFE 
CTURE 
CTUFE 
CTURE 


DEC" 


MAY 


JUN 


JUL; 


19991 
19991 
19991 

•999' 
•  9991 

19991 

19991 

19991 
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a    12,4     SAY    "A   TOTAL    Of    " 
STORE     (QMAY+QJUN+QJUL+; 
CAUG+QSEP+QOCT+QNOV+QDEC) 
I    12, T5     SAY    SIR  (TEMPSUM, 3) 
3    12,19    SAY    "QUOTAS    REMAIN 


TO    TEMPSUM 
FOR    THE    CURRENT    YEAR." 


DO    CASE 

CASE     (TEMPSUM    =    MLEFT) 

S    14, U     SAY    "QUOTAS    EQUAL 
LEFT    TO    QUALIFY..." 
3     14,53    SAY    STB  (TEKPSUM,3) 
CASE     (MLEFT    >    TEMPSUM) 

<ED 


NUMBER    OF    MARINES 


a 


4,4     SAY 


"YOU    NE 


STORE     (MLEFT    -     TEMPSUM)     TO    NEEDED 
14,13    SAY 


STB  (NEEDED, 3) 
14,19    SAY    "MORE    QUOTAS." 
(TEMPSUM    >    MLEFT) 
14,4     SAY    "YOU    HAVE    " 
OEE     (TEMPSUM    -    MLEFT)     TO    EXTRA 

,13   sr~ 


a 

3 

CASE 

a 

5)"T47l3x"SAY~ST5  (EXTBAT3)  " 
3     1  a,  18    SAY    "EXCESS    QUOTAS." 
ENDCASE 


S     15,24    SAY    "SELECT   ONE    OPTION" 

a    16,18    SAY    "A. ..START    AGAIN    WITH    ORIGINAL    QUOTAS" 

a    17,18    SAY       "E.. .RETURN    TO    STANDARD    REPORT; 

SELECTION    MENU" 

a    18,18    SAY       "C.  .PERMANENTLY    REPLACE    ORIGINAL; 

QUCTAS" 

ACCEPT    "SELECT    CNE    ===>    "    TO    WHICHWAY 


CO    CASE 

CASE    !  (WHIC 

.  STORE    F 

CASE    !  (WHIC 

ACCEPT    " 

ORIGINAL 

IF    CONTI 

DO    CA 

CA 

CA 

CA 

CA 

CA 

ENDCA 
STORE 

ELSE 

STORE 

ENDIF 
ENECASE 


TC    PICKMNTH 
H WAY)    =     *  C ■ 

EO    YOU     WANT    TO    PERMANENTLY    REPLACE    THE; 

SET    OF     QUCTAS     (Y/N) ?"    TO    CONTINUE 
KUE 
SE 
S£    !  (MO  NIT)     =    '  A1 

SAVE    TC    A:ARNGQTAS    ALL    LIKE    Q??? 
SE    !  (MO  KIT)    =    •  B« 

SAVE    TO    A:3RNGQTAS    ALL    LIKE    Q??? 
SI    !  (MO  NIT)    =    'C 

SAVE    TC    ArCRNGQTAS    ALL    LIKE    Q??? 
SE    !  (MO  NIT)     =    '  D» 

SAVE    TO    A:DRNGQTAS    ALL    LIKE    Q??? 
SE    !(MONIT)     =    'E' 

SAVE    TO    A:BNRNGQTA    ALL    LIKE    Q??? 
SE 

E    TO    PICKMNTH 

E    TO    PICKMNTH 


ENCDC 

CASE    MCNTE   =  ■  05' 

DC    WHILE    PICKMNTH    =    T 
EO    CASE 

CASE    ! (MONIT)    = 

EESTOFE    FECM 

CASE    ! (MONIT)    = 

BESTOPE    FFOM 

CASE    !  (MONIT)    = 

RESTORE    FECM 


CASE    !   (MONIT)    = 

RESTORE    FEOM 


•A» 

AtARNGQTAS  ADDITIVE 
■B« 

A:BRNGQTAS  ADDITIVE 
■C« 

ArCPNGQTAS  ADDITIVE 

•D1 

AtDRNGQTAS  ADDITIVE 


145 


CAS 

ENECAS 
ISA 

a  2 

a  4 
CAI 
3  5 
CUE 
3  6 
**# 

3  8 
AUG 
1 


E    !  (MUNIT 

EESTOBE    F 

E 

SE 

,15    SAY    " 

,5    SAY    "S 

CULATIONS 

,5    SAY    "0 

EENT    QUOT 

.0    SAY    "* 

*******:** 

,5    SAY    " 

SEF 
0,28    GET 


=     »E» 
rOH    A:BNENGQTA 


ADDITIVE 


EIFLE  BANGE  QUOTA  SCBATCH  PAD" 
FACE  BELOW  THIS  LINE  IS  FOE; 

AND  WILL  EE  SAVED" 
MY  IF  YOU  SPECIFY  THE  'EEPLACE; 
AS*  OPTION  " 

*****#*:  *****!! 

JUN    JUL; 


EEA 


0,34 
0,40 
0,46 
0,52 
0,58 
0,64 
C 


GET 
GET 

GET 
GET 
GET 
GET 


CCT 

CoUN 

QJUL 

CAUG 

CSEP 

CCCT 

C.NOV 

CEEC 


NOV 

PICTUEE 
FICTUBE 
PICTUEE 
PICTUEE 
FICTUBE 
PICTUEE 
PICTUEE 


DEC" 
19991 
19991 
19991 
19991 
19991 
19991 
19991 


(QJUN+ 

i+QSEE+CT 
12, T5     SAY 


2    12.4     SAY    "A    TOTAL    OF 

STOEE 

QAUG+QSEE+QOCT+QNOV  +  QDEC)     TO    TEMPSUM 

"QDOTAS    EEM&IN    FOB    THE    CUBEENT    YEAE." 


a    12,19    SAY 

DC    CASE 

CASE     (TEMPSOM    =    MLEFT) 

3    T4,4     SAY    "QUCTAS    EQUAL    NUMBEB    OF    MASINES 
LEFT    TO    CUALIFY.. ." 
3    14.53    SAY    STB  (TEMPSUM, 3) 
CASS     (MLSF1   >    TEMPSUM) 

3     14,4     SAY    "YOU    NEED    " 


S± 
3 

a 

CASE 

a 


(ML 

14, 

OBE 


.EFT    -     TEMPSUM)     TO    NEEDED 


E     (ML! 

14,13    SAY    STB  (NEEDED, 3) 
14,19    SAY    "MOEE    QUOTAS." 
(TEMPSUM    >    MLEFT) 


STOBS     (IE 

a   m,  13  say 

3     14,18    SAY 

ENDCASE 


SAY    "YOU    HAVE 

MPSUM    -    MLEFT)     TO    EXTBA 
STE  (EXTRA,3) 
"EXCESS    QUOT 


AS 


3    15,24    SAY    "SEIECT    ONE    CPTION" 
3     16,18    SAY    "A. ..START    AGAIN    WITH 
3     17,  18    SAY       "E...BETURN 
SEIECTION    MENU" 


OEIGINAL    QUOTAS" 
10    STANDARD    BEFOBT; 


3     18.18    SAY       "C.  .PERMANENTLY    EEPLACE    OBIGINAL    QUOTAS" 
ACCEPT    "SELECT    ONE    ===>    "    TO    WHICHWAY 


DC   C A  CE 

CASE    !  (WHICEWAY)     =    'B' 

STORE    F    TC    PICKMNTH 

CASE    !(WHICEWAY)     =     fC' 

ACCEPT    "DC    YOU     WANT    TO 
OBIGINAL    SET    OF    QUOTAS 
IF    CCNTINOE 
DO    CASE 

CASE    !(MUNIT)     =    '  A« 

SAVE    TO    A:ARNGQT 

CASE    I(MUNIT)     =    '  B» 

SAVE    TO    A:BBNGQTAS 
CASE     !(MUNIT)     =    *  C» 

SAVE    TO    A;CENGQTAS 
CASE    !(MUNIT)     =    •  D« 

SAVE    TO    AtDENGQTAS 
CASE    !  (MUNIT)    =    •  E' 


PERMANENTLY    EEPLACE    THE; 
(Y/N) ?"     TO    CONTINUE 


IQTAS 


ALL 

LIKE 

Q??? 

ALL 

LIKE 

Q??? 

ALL 

LIKE 

Q??? 

ALL 

LIKE 

Q?  ?  ? 
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SAVE   TC    A:BNRNGQTA    ALL    LIKE    Q??? 
ENDCASE 

STORE    F    TO    PICKMNTH 
ELS  E 

STORE    F    TO    PICKMNTH 
ENDIF 
ENDCASE 


ENEDO 

CASE    MCNT 

EC    WHI 

DO    CAS 

CAS 

CAS 

CAS 

CAS 


H   =  »06» 

IE    PICKMNTH    =   T 

E 

(MUNIT)    = 
EESTOEE    FECM 

(MUNIT)    = 
EESTOEE    FECM 

(MUNIT)    = 
EESTOEE    FECM 


CASE 


(MUNIT)  = 


ENECAS 

ERA 
a  2 

2  u 

CAL 
2  5 
CUE 
2  6 
*** 

2  8 
AUG 
2  1 

a  1 

a  1 

2 

a 

2  1 
EEA 


EESTOEE    FECM 
ECM 


(MUNIT 
EESTOEE  F 
E 

SE 

r15  SAY  " 
,5  SAY  "S 
CULATIONS 
,5  SAY  "0 
EFJT  QUOT 
,0  SAY  •■* 
,******** 

,5    SAY    " 

SEP 
0,3U    GET 


•  A« 
A:A 
•B» 
A:B 
■C« 
A:C 
•D» 
A:D 
•E« 
A:B 


EIFLE   R 
EACE    BE 
AND    HI 
MY    IF 

as1   opt 

nr  ^n  ^p  ^n  ^^  t*  *r 

*  4  ***** 


1 

a  1 


o,40 

0,46 
0,52 
0,58 
0,64 
D 


GET 
GET 
GET 
GET 
GET 


CCT 
COOL 

QAUG 
CSEP 
CCCT 

Ci<cv 

CEEC 


N 

PI 
PI 
PI 
PI 
PI 
PI 


RNGC.TAS  ADDITIVE 

ENGCTAS  ADDITIVE 

ENGCTAS  ADDITIVE 

ENGCTAS  ADDITIVE 

NRNGQTA  ADDITIVE 


ANGE    QUOTA    SCRATCH    PAD" 

ICH    THIS    LINE    IS    FOR; 

LL    BE    SAVED" 

YCU    SPECIFY    THE    'REPLACE; 

ION    " 
************************* • 

*****ii 

JUL; 

OV         DEC" 


CTUEE 
CTURE 
CTUEE 
CTURE 
CTUEE 
CTUPE 


•  999i 
19991 
19991 
19991 

•999« 

•  9991 


2    12,4 
STOEE 
CAUG+Q 
a    12,15 
2    12,19 


S  AY    "A 

QJUL  + 


TOTAL    OF    " 


P+QOCT+QNOV+QDEC) 
UM,3) 
REMAIN 


SAY     SIR (TEMPS 
SAY     "CUOTAS 


TO    TEMPSUM 

FOR    THE    CURRENT    YEAR." 


EO    CAS  E 

CASE     (TEMPSUM    =    MIEFT) 

2     14,4    SAY    "QUOTAS    EQUAL 

LEFT    TO    CUALIFY. . ." 

2     14.53    SAY    STE  (TEKPSUM,3) 

CASE     (MLEFT    >    TEMPSUM) 

2    14,4     SAY    "YOU    NEED    " 
STORE     (MIEFT   -    TEMPSUM)     TO 
2     14,13    SAY    STE  (NEEDED, 3) 
2     14,19    SAY    "MORE    QUOTAS." 

CASE     (TEMPSUM    >    MIEFT) 

2     14,4    SAY    "YOU    HAVE    " 
STOEE     (TEMPSUM    -    MLEFT)     TO 
2     14,13    SAY    STR  (EXTRA,3) 
2     14,18    SAY    "EXCESS    QUOTAS, 

ENDCASE 


NUMBER    OF    MARINES 


NEEDED 


EXTRA 


2    15,24    SAY    "SEIECT    ONE    CPTION" 

2     16,18    SAY    "A. ..START    AGAIN    WITH    ORIGINAL    QUOTAS" 
2     17,18    SAY       "E... RETURN    10    STANDARD    REPORT; 
SELECTION    MENU" 
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2    18,18    SAY      "O.  .PERMANENTLY    REPLACE    ORIGINAL    QUOTAS" 
ACCEPT    "SELECT    CNE    -=->    "    TO    WHICHWAY 


DC    CASE 

CASE    ! (WHIC 

STORE    F 

CASE    '(WHIC 

ACCEPT    " 

ORIGINAL 

IF    CCNTI 

DO    CA 

CA 

CA 

CA 

CA 

CA 

ENDCA 
STORE 

ELSE 

STORE 

ENDIF 
INECASE 


ESA 
TC 
EWA 
DC 

SE 
KDE 
SE 
SE 

SA 
SE 

SA 
SE 

SA 
SE 

SA 
SE 

SA 
SE 

E 


Y)  =  ,BI 
PICKMNTH 
Y)     =     «C« 

YOU     WANT    TO 
T   OF    QUOTAS 


PERMANENTLY 
(Y/N) ?";    TO 


REPLACE    THE; 
CONTINUE 


!  (MUNIT)    =    'A' 

VE    TO    A:ARNGQTAS    ALL    LIKE 

!(MUNIT)    =    'Bf 

VE    TC    A:BRNGQTAS    ALL    LIKE 

!  (MO  MIT)    =    'C1 

VE    TO    A:CRNGQTAS    ALL    LIKE 

!  (MUNIT)    =    •  D' 

VE   TC    ArDRNGQTAS    ALL    LIKE 

!  (MO  NIT)    ■    'E* 

VE   TO    A:BNRNGQTA    ALL    LIKE 

TO  PICKMNTH 


Q??? 
Q??? 
Q??? 
Q??? 
Q??? 


E    TO    PICKMNTH 


ENDDO 

CASE    MCNT 

DC    SHI 

DO    CAS 

CAS 

CAS 

CAS 

CAS 

CAS 

ENDCAS 
IRA 
3    2 

2  4 

CAI 

a  5 

CUR 

a  6 
*** 

a  8 

AUG 
2  1 
2    1 


E   =  »07» 

IE    PICKMN 

I 

E    !  (MUNIT 

EESTOFE    F 

E    !  (MUNIT 

RESTORE    F 

E    !  (MUNIT 

FESTORS    F 

E    !  (MUNIT 

PES  TO  RE    F 

I    !   (MUNIT 

FES  TO  RE    F 

E 

SE 

,15    SAY    " 

,5    SAY    "S 

CULATIONS 

,5    SAY    "0 

RENT    QOOT 

,0    SAY    "* 

********* 

,5    SAY    " 

SEP 
0,40    GET 


TH    =    T 

)    =    'A' 

FCM    A:ARNG 
)    =     'B» 
RCM    A:BRNG 
)    =    «C« 
BCM    A:CRNG 
)    =    «D» 
FCM    A:DRNG 
)    =    «E« 
FCM    A:3NRN 


FIFLE    RANG 

FACE    BELOW 

2ND    WI LL 

MY    IF    YOU 

AS1    OPTION 
*******  *** 

44******** 


FEA 


0,46 
0,52 
0,5  8 
0,64 
E 


GET 
GET 
GET 
GET 


CCT 

CAUG 

CSEP 

CCCT 

CNOV 

QEEC 


NOV 
PICTU 
PICTU 
PICTU 
PICTU 
PICTU 


QIAS  ADDITIVE 
QTAS  ADDITIVE 
QIAS  ADDITIVE 
QTAS  ADDITIVE 
GQTA    ADDITIVE 


E    QUOTA    SCRATCH    PAD" 

THIS    LINE    IS    FOR; 

EE    SAVED" 

SPECIFY    THE    'REPLACE; 
ti 

*********************** 

4*ll 

• 

DEC*' 
FE  '9991 
RE  »999» 
BE  '999' 
RE  •9991 
BE  «999« 


S    12,4     SAY    "A    TOTAL    OF    " 

STORE     (QAUG  +  QSEP+QOCT+QNOV+QDEC)     TO    TEMPSUM 

2     12,15    SAY    SlR(TEMESUtf, 3) 

2    12,19    SAY    "QUOTAS    REMAIN    FOR    THE    CURRENT    YEAR." 


DC    CASE 

CASE     (TEMPSUM 
3     14,4     SAY 


—       M  T  T?T?  IT\ 

"QUOTAS  EQUAL  NUMBER  OF  MARINES 


148 


LEFT    TO    QUALIFY..  ." 

a    14,53    SAY   STB  (TESPSUM,3) 

CASE     (MLEFT    >    TEMPSUM) 

3    T4,4     SAY    "YOU    NEED    " 
STORE     (MLEFT    -    TEMPSUM)     TO 
S     14,13    SAY    STB  (NEEDED, 3) 
S    14,19    SAY    "MORE    QUOTAS." 

CASE     fTEMPSUM    >    MLEFT) 

a)     14,4    SAY    "YOU    HAVE    » 
STORE     (TEMPSUM    -    MLEFT)     TO 
a)     1  4,  1  3    SAY    STR(EXTRA,3) 
a    14,18    SAY    "EXCESS    QUOTAS, 

ENDCASE 


NEEDED 


EXTRA 


2  15,24    SAY    "SEIECT    ONE    CPTION" 

3  16,18    SAY    "A. ..START    AGAIN    WITH    ORIGINAL    QUOTAS" 
a     17,18    SAY      "E.. .RETURN    TO    STANDARD    REPORT; 
SELECTION    MENU" 

3    18,18    SAY       "O.  .PERMANENTLY    REPLACE    ORIGINAL    QUOTAS" 
ACCEPT    "SELECT    CNE    ===>    "    TO    WHICHWAY 


CO    CASE 

CASE    ! (WHIC 

STORE    F 

CASE    MWHIC 

ACCEPT    " 

ORIGINAL 

IF    CONTI 

DO    CA 

CA 

CA 

CA 

CA 

CA 

ENDCA 
STORE 
ELSE 

STORE 
ENDIF 
ENLCASE 


EWAY)  =  *B« 
TC  PICKMNTB 
FWAY)     =     »C 

EC    YOU    WANT    TO    PERMANENTLY    REPLACE    THE; 

SET   OF    QUOTAS     (Y/N) ?" ;    TO   CONTINUE 
SUE 
SE 
SE    !  (MUNIT)    =    ■  A' 

SAVE   TO    A:ARNGQTAS 
SE    !  (MUNIT)     =    •  B« 

SAVE    TO    ArBRNGQTAS 
SE    !  (MUNIT)    ■    »  C1 

SAVE    TO    ArCRNGQTAS 
SE    !  (MUNIT)     =    'D« 

SAVE    TO    A:DRNGQTAS    ALL    LIKE 
SE    !  (MUNIT)    =    ■  E* 

SAVE    TO    ArBNBNGQTA    ALL    LIKE 
SE 

F    TO    PICKMNTH 

F    TO    PICKMNTH 


ALL  LIKE 
ALL  LIKE 
ALL    LIKE 


W   •     •     • 

Q??? 
Q??? 
Q??? 
Q??? 


ENCDC 

CASE    MCNTE   =  *  08» 
DC    iHIIE    PICKMN 
EO    CASE 

CASE    !   (MUNIT 

RESTORE    F 
CASE    !  (MUNIT 

RESTORE    F 
CASE    !   (MUNIT 

RESTORE    F 
CASE    ! (MUNIT 

RESTORE    F 
CASE    !   (MUNIT 

RESTORE    F 
ENDCASE 
IRASE 

3  2,15  SAY  " 
2  4,5  SAY  "S 
CALCULATIONS 
2  5,5  SAY  "0 
CURRENT  QUOT 
a    6 ,0    SAY   "* 


TH  =  T 

1  =  'A* 

ROM  A:ARNGQTAS  ADDITIVE 

)  =  «B« 

PCM  A:BRNGQTAS  ADDITIVE 

)  =  ■C* 

ECM  A:CRNGQTAS  ADDITIVE 

)  =  «D» 

ROM  A:DRNGQTAS  ADDITIVE 


)    =     •£• 

EOM 


ArBNFNGQTA    ADDITIVE 


RIFLE    RANGE    QUOTA    SCRATCH    PAD" 
EACE    BELOW    THIS    LINE    IS    FOR; 

2ND    WI IL    BE    SAVED" 
MY    IF    YOU    SPECIFY    THE    ^REPLACE; 
AS1    OPTION    " 


14S 


************************  It 
2    8,5    SAY    "  : 

SEF         OCT  NCV 

2  10,46  GET  C.SEP 
a  10,52  GET  C.CCT 
a    10,58    GET  CKCV 

3  10,64  GET  CEEC 
BEAD 


DEC" 
PICTUFE 
PICTURE 
PICTUFE 
PICTURE 


19991 

•999' 
•999' 
•  9991 


12,4    SAY    "A    TOTAL    OF 


STCRE     (QSEP+CCCT+QNCV+CDEC) 
2    12,15 

a  12,19 


SAY  SIR  (TEMPSUM, 3) 
SAY  "CCOTAS  REMAIN 


TO  TEMPSUM 
FOR  THE  CURRENT  YEAR 


DC    CASE 

CASE     (TEMPSUM    =    MLEFT) 

a     14,4     SAY    "QUOTAS    EQUAL 

LEFT    TO    QUALIFY..." 

a     14,53    SAY    STB  (TEt!FSUM,3) 

CASE     (MLEFT    >    TEMPSUM) 

3    14,4     SAY    "YOU    NEED    " 
STORE     (MLEFT    -    TEMPSUM)     TO 
3     14,13    SAY    STB  (NEEDED, 3) 
a     14,19    SAY    "MORE    QUOTAS." 

CASE     (TEMPSUM    >    MLEFT) 

a     14,4    SAY    "YOU    HAVE    " 
ST05E     (TEMPSUM    -    WLEFT)     TO 
a     14,13    SAY    STR(EXTRA,3) 
a     14,18    SAY    "EXCESS    QUOTAS 

ENDCASE 


NUMBER    OF    MARINES 


NEEDED 


EXTRA 


a    15,24    SAY    "SEIECT    ONE    CPTION" 

3     16,18    SAY    "A. ..START    AGAIN    WITH    ORIGINAL    QUOTAS" 

a     17,18    SAY       "E... RETURN    TO    STANDARD    REPORT; 

SELECTION    MENU" 

a    18.18    SAY       "C.  .PERMANENTLY    REPLACE   ORIGINAL    QUOTAS" 

ACCEPT    "SELECT    ONE   ===>    "    TO    WHICHWAY 


0    CASE 

CASE    !(WHIC 

STORE    F 

CASE    !(WHIC 

ACCEPT    " 

ORIGINAL 

IF    CCNTI 

DO    CA 

CA 

CA 

CA 

CA 

CA 

ENDCA 
STORE 

ELSE 

STORE 

ENDIF 
ENCCASE 

EWAY)  =  •B' 
TC  PICKMNTH 
EWAY)  =  'C1 
CC    YOU     WANT    TC    PERMANENTLY    REPLACE    THE; 

SET   OF    QUOTAS     (Y/N) ?"    TO    CONTINUE 
KCE 
SI 
SE    !  (MUNIT)    =    ■  A1 

SAVE    TO    A:ARNGQTAS    ALL    LIKE 
SE    !  (MUNIT)    =    '  B» 


SAVE    TO    AtBRNGQTAS    ALL    LIKE 
SE    !  (MUNIT)     =    '  C« 

SAVE;    TO    A'.CRNGQTAS    ALL    LIKE 
SE    !  (MUNIT)     =    •  D1 

SAVE    TO    A:DRNGQTAS    ALL 
SE     !  (MUNIT)    =    'E' 

SAVE    TO    A:BNRNGQTA    ALL 
SE 

E    TO    PICKMNTH 

F    TO    PICKMNTH 


LIKE 
LIKE 


Q??? 
Q??? 
Q??? 
Q??? 
Q??? 


ENDDO 

CASE    MCNTE   =»  09* 

DO    KHILE    PICKMNTH 
CO    CASE 

CASE    !   (MUNIT)    = 


=    T 
•A* 
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RESTORE    FECM    A:ARNGQTAS    ADDITIVE 
CASE    !  ?MONIT)    =     «B« 

RESTORE    FECM    A:BRNGQIAS    ADDITIVE 
CASE    !  (MUNIT)    =    'C 

RESTORE    FECM    A:CENGQTAS    ADDITIVE 
CASE    ! (MUNIT)    =    'D1 

BESTORE    FRCM    A:DRNGQIAS    ADDITIVE 
CASE    ! (MUNIT)    =    'E' 

RESTORE    FEOM    ArBNFNGQIA    ADDITIVE 
ENDCASE 
ERASE 

2    2,15    SAY    "FIFLE    RANGE    QUOTA    SCRATCH    PAD" 
2    4,5    SAY    "SPACE   BELOW    THIS    LINE    IS    FOR; 
CALCULATIONS    2ND    WILL    EE    SAVED" 

2  5,5    SAY    "OMY    IF    YOU    SPECIFY    THE    'REPLACE; 
CURRENT    QUOTAS'    OPTION    " 

3  6  ,0    SAY    h********************************* ; 
************************ n 

2  8,5    SAY    "  ; 
CCT         NOV  EEC" 

3  10,52  GET  CCCT  PICTURE  •999« 
a  10,58  GET  QNOV  PICTURE  '9991 
a  10,64  GET  QEEC  PICTURE  «999' 
BEAD 

a  12  4  SAY  "A  TOTAL  OE  " 

STORE  (QOCT+CNOV+QDEC)  TO  TEMPSUM 

a    12,15    SAY    SIR (TEMPSUM. 3) 

2    12,19    SAY    "CUOTAS     REMAIN    FOR    THE    CURRENT    YEAR 

EO    CASE 

CASE     {TEMPSUM    =    MLEFT) 

2  14,4     SAY    "QUOTAS    EQUAL    NUMBER    OF    MARINES 
LEFT    TO    QUALIFY. . . « 

3  14,53    SAY    STE  (TEHPSUM,3) 
CASE     fMLEFT    >    TEMPSUM) 

2     T4.4     £AY    "YOU    NEED    " 

STORE     (Ml  EFT    -    TSMPSTS)     10    NEEDED 

2     14,13    SAY    STB  (NEEDED, 3) 


2  14,19    SAY _ "MORE _Q DOT A3 

3  1 4^4"  SAY    "YOU    RAVE 


CASE     (TEMPSUK    >    MLEFTf 

2     14,4    SAY    ''YOU    BAVL 

STORE     (TEKPSCJM    -     WLEFT)     TO    EXTRA 

2     1U,  13    SAY    SIR  iEXIRA,3) 

2     14,18    SAY    "EXCESS    QUOTAS." 
ENDCASE 

2    15,24    SAY    "SEIECT    ONL^    OPTION" 

2     16,18    SAY    "A...  START     AGAIN    WITH    ORIGINAL    QUOTAS" 

2     17'  18    SAY       "E... RETURN    TO    STANDARD    REPORT; 

^FIFCTTON     MP  NTT" 

2     18,18    SAY       "C... PERMANENTLY    REPLACE   ORIGINAL    QUCTAS" 

ACCEPT    "SELECT    CNE    ===>     "    10    WHICHWAY' 

DC    CASE 

CASE    !  (WHICfiWAY)     =     'B  * 


STORE    F    TC    PICKKNr'*H 

;e  !  (whicesay)   =  H*  -' 

JPC7PT     urr~     i^u     «IA^T 
*^"A..  L  ckt   nr    mini 


CASfrr^PTJ"«CA'"Vuu "  HAVt    TO    PERMANENTLY    REPLACE    THE; 
ORIGINAT    ,SET    0F    QUC'iaS     l*,/NJ  ?"    TO    CONTINUE 

^    5°JTCASEE 

1        CASE    !  (MUNIT)     =    •  A' 

SAV2  TC  A:ARNGQTAS  &LL  LIKE  Q??? 
CASE    .'  (MUNIT)     =    •  B' 

SAVE  TO  A:BRNGQTAS  ALL  LYK-  Q??? 
CASE    !  (MUNIT)     =    '  C« 

SAVE  TC  AtCRNGQTAS  ALL  T-IKE  Q??? 
CASE    !  (MUNIT)    =    '  D' 

SAVE    TO    A:DRNGQTAS    A-L    LIKE    Q??? 
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CASE    !  (MO  MIT)     =    • E* 

SAVE    TO    A:BNRNGQTA    ALL    LIKE    Q??? 
ENDCASE 

SIORE    E    TO    PICKMNTH 
ELSE 

STORE    F    TO    PICKMNTH 
ENDIF 
ENDCASE 


ENEEC 


CASE  MCNTH  = 
CO  WHILE 
DO  CASE 
CASE  ! 
EES 
CASE  ! 
EES 
CASE  ! 
EES 
CASE  ! 
EES 
CASE  ! 
EES 
ENECASE 
EEASE 

a  2,15 

a  4,5 

CALCUL 

a  5,5 

CUBEEN 

a  6  ,o 
****** 

a  8,5 


MO1 
PICKMNTE    = 


(MO 

TOE 


MUNIT)  = 
OEE  FECM 
MUNIT[  = 
OEE  FECM 
(MONIT)  = 
TOES  FECM 
(MUNIT1  ■ 
TOBE  FECM 
(MONIT)  = 
TOEE    FECM 


•A' 

A:A 
■B» 

A:B 
•C« 

A:C 
•D» 

A:D 

•E« 
A:B 


ENGCTAS  ADDITIVE 

RNGQTAS  ADDITIVE 

ENGCTAS  ADDITIVE 

ENGCTAS  ADDITIVE 

NRNGQTA  ADDITIVE 


SAY  "RIFLE  R 
SAY  "SPACE  BE 
ATIONS  AND  WI 
SAY  "OHI  IF 
T  QUOTAS*  OPT 
SAY    "******** 

****  ***  *  ***** 

SAY    " 


a    10,58 
a    10,64 

EEAE 


GET 

GET 


CKCV    PI 
CCEC    PI 


ANGE    QUOTA    SCRATCH    PAD" 

ICW    THIS    LINE    IS    FOR; 

LL    BE    SA  VED" 

YOU    SPECIFY    THE    'REPLACE; 

ION    " 
************************* j 

*****!! 

NOV  DEC" 
CTUEE  '999* 
CTUEE  •999' 


a    12,4    SAY    "A    TOTAL    OF    " 

STCEE    (QNOV+C.EEC)     TC    TEMPSUM 

3    12,15     SAY    SIR  (TEMPSUM,3) 

a    12,19    SAY    "QUOTAS    REMAIN    FOR    THE    CURRENT    YEAR 

CO    CASE 

CASE     (TEMPSUM    =    MLEFT) 

S     14, U     SAY    "QOCTAS 

LEFT    TO    QUALIFY.. ." 

3     14.53    SAY    STE  (TE  KPSU  M,  3) 
CASE     (MLEFT    >    TEMPSOM) 

a    T4,4     SAY    "YOU    NEED    " 

STORE     (MLEFT   -     TEMPSUM)     TO 

a    14,13    SAY    STE  (NEEDED, 3) 

a     14,19    SAY    "MORE    QUOTAS." 
CASE     (TEMPSUM    >    MLEFT) 

■"'0  U  HAV~ 


EQUAL  NUMBER  OF  MARINES 


NEEDED 


a     1  4,4     SAY    "YO  . 

STORE     (TEMPSUM    -    MLEFT)     TO 
a     14,13    SAY    STR  (EXTRA, 3) 
a     14,18    SAY    "EXCESS    QUOTAS 
ENDCASE 


EXTRA 


3     15,24    SAY    "SEIECT    ONE    OPTION" 

a     16,18    SAY    "A. ..START    AGAIN    WITH    ORIGINAL    QUOTAS" 

a    17,18    SAY       "E.. .RETURN    TO    STANDARD    REPORT; 

SELECTION    MENU" 

a    18,18    SAY       "C.  .PERMANENTLY    REPLACE    ORIGINAL; 

QUCTAS" 

ACCEPT  "SEIECT  CNE  ===> 


TO  WHICHWAY 
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■?•?-? 


EC   C A CE 

CASE    I  (WHICEWAY)     =     ,B« 

STORE    F    1C    PICKMNTH 

CASE    ! (WHICEWAY)     s    'C' 

^ACCEPT    "DC    YOU    WANT    TO    PERMANENTLY    REPLACE    THE; 
ORIGINAL    SET    OF    QUOTAS     (Y/N) ?"    TO    CONTINUE 
IF    CCNTISUE 
DO    CASE 

CASE    IjMUNIT)    =    'A1 

SAVE    TO    A:ARNGQTAS    ALL    LIKE    Q??? 
CASE    !  (MUNIT)     =    ■  B« 

SAVE    TO    A:BRNGQTAS    ALL    LIKE    Q??? 
CASE    !  (MUNIT)    =    »C» 

SAVE    TO    A:CRNGQTAS    ALL    LIKE    Q??? 
CASE     '(MUNIT)    =    'D* 

SAVE    TO    ArDRNGQTAS    ALL    LIKE    Q??? 
CASE    '(MUNIT)     =    'E' 

SAVE    TO    A:BNRNGQTA    ALL    LIKE    Q' 
ENDCASE 

STORE    E    TO    PICKMNTH 
ELSE 

STORE    E    TO    PICKMNTH 
ENDIF 
ENECASE 

ENDDC 

CASE    MCNTE   =  •  1 V 

DC    KHIIE    PICKMNTH    =    T 
EO    CASE 

CASE    ! (MUNIT)    =    ,A« 

RESTORE    FBCM    AtARNGQTAS    ADDITIVE 
CASS    »  (MUNIT)    =    «B' 

RESTORE    FBCM    A:BRNGQTAS    ADDITIVE 
CASE    !   (MUNIT)    »    «C« 

RESTORE    FBCM    ArCRNGQTAS    ADDITIVE 
CASE    ! (MUNIT)    =     'D1 

RESTORE    FBCM    ArDRNGQIAS    ADDITIVE 
CASE    ! fMUNIT)    =     «E« 

RESTORE    FBCM    A:BNRNGQTA    ADDITIVE 
ENECASE 
IRASE 

2  2,15    SAY    "EIELE    RANGE    QUOTA    SCRATCH    PAD" 

3  4,5    SAY    "SPACE    BELOW    THIS    LINE    IS    FOR; 
CALCULATIONS    AND    WILL    EE    SAVED" 
2    5,5    SAY    "OMY    IF    YOU    SPECIFY    THE    'REPLACE; 
CURRENT    QUOTAS'    OPTION    " 

2  6,0    SAY    «*******************#*************• 
4***********4*4****  4****M 

a    8,5    SAY  ; 

EEC" 

3  10,64    GET    CEEC    PICTURE    '999' 
REAE 

a    12   4     SAY    "A    'T'OTAL    CE    " 

STORE     (QEEB+QMAR+QAPR+QMAY+QJUN+QJUL+ ; 

QAUG+QSEP+QOCH-QNOV+QEEC)     TO    TSMPSUM 

a    12,15     SAY    SIR  (TEMFSUM,3) 

2    12,19    SAY    "QUOTAS    REMAIN    FOR    THE    CURRENT    YEAR." 

EO    CASE 

CASE     (TEMPCUM    =    MLEFI) 

3     14,4     SAY    "QUOTAS    EQUAL    NUMBER    OF    MARINES; 

LEFT    TO    QUALIFY..  ." 

3     14.53    SAY    STB  (TEKFSUM,3) 
CASE     (MLEFI    >    TEMPSUM) 

a    14, 4    SAY    "YOU    nee: 


a    14,4     SAY    "YOU    NEED 

UM) 

) 


STORE     (MLEFT   -     TEMPSUM)     TO    NEEDED 
a     14,13    SAY    STR  (NEEDED, 3] 
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3     14,19    SAY    "MORE    QUOTAS." 
CASE     (TEHESOK    >    MLEFT) 

5)    14,4     SAY    "YOO    HAVE    " 

STOBE     (TEMPSUM    -    MLEFT)     TO    EXTRA 

3     14,13    SAY    STB  (EXTRA, 3) 

3     14,18    SAY    "EXCESS    QUOTAS." 
ENDCASE 

3     15,24    SAY    "SELECT    ONE    OPTION" 

3    16,18    SAY    "A. ..START    AGAIN    WITH    ORIGINAL    QUOTAS" 

3    17,18    SAY       "E... RETURN    IC   STANDARD    REPORT; 

SELECTION    MENU" 

3    18,18    SAY       "C.  .PERMANENTLY    REPLACE    ORIGINAL    QUOTAS" 

ACCEPT    "SELECT    CNE   ===>    "    TO    WHICHWAY 


DC    CASE 

CASE    ! (WHIC 

STORE    F 

CASE    MWHIC 

ACCEPT    " 

ORIGINAL 

IF    CCNTI 

DO    CA 

CA 

CA 

CA 

CA 

CA 

ENDCA 
STORE 

ELSE 

STORE 

ENDIF 
ENDCASE 


EWAY)  =  'B1 
TC  PICKMNTH 
EWAY)     -     '  C  ' 

EC    YOU    WANT    TO    PERMANENTLY    REPLACE 

SET   OF    QUOTAS     (Y/N) ?"    TO    CONTINUE 
¥UE 
SI 
SE    !  (MO  NIT)    =    'A* 

SAVE    TO    A:ARNGQTAS    ALL    LIKE 
SE    !  (MO  NIT)    =    •  B« 

SAVE    TC    A:BRNGQTAS    ALL    LIKE 
SE    !  (MO  NIT)    =    *C' 

SAVt    TO    A:CRNGQTAS    ALL    LIKE 
SE    !  (MO  NIT)     =    'D' 

SAVE    TC    AcDRNGQTAS    ALL    LIKE 
SE    IJMUNIT)     =    'E* 

SAVE    TO    ArBNRNGQTA    ALL    LIKE 
SE 

E    TO    PICKMNTH 

E    TO    PICKMNTH 


THE; 


Q??? 
Q??? 
Q??? 
Q??? 
Q??? 


ENDDC 

CASE    MCNTB    ■■  12» 
ERASE 

5    2,15    SAY     "RIFLE    RANGE    QUOTA    SCRATCH    PAD" 
2    4,5    SAY    "SPACE    BELOW    THIS    LINE    IS    FOR    CALCULATIONS; 
ANE    WILL    BE    SAVED" 

2    5,5    SAY    "CNLY    IF    YOO    SPECIFY    THE    'REPLACE    CORRENT; 
QUOTAS'    OPTION    " 
a    6,0    SAY    "a****************************************; 

2    8.5    SAY    "THIS    IS    THE    LAST    MONTH    OF    THE    CORRENT; 
YEAS." 
ENDCASE 

ENDCASE 

SET    CCLCN    CN 

BELEASE    ALL    LIKE    Q??? 

BELEASE    BLE FT, TEMPS  UK,  WHICH  WAY, PICKMNTH, CONTINUE 

EETUBN 
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MAEKSMANSHIP    ROSTER    ROOTIHE 


ROU 
MOE 
VEE 
AOT 
DAI 
VAE 
VAR 
VAE 
VAR 
FIL 
TEM 
USI 
DE£ 
INC 
EAC 
FOR 
ROS 


* 

* 

CSE  E 
SELEC 
CSE  Q 
JOIN 
NAME. 
CSE  B 
ERASE 
DO  CA 
CA 

CA 

CA 


CA 
CA 

CA 

CA 
CA 

CA 

CA 

CA 

CA 
CA 

CA 

CA 


LINE  N 
OLE  NA 
SICN: 
ECR:  R 
E:  28D 
IAELES 
IABIES 
IAELES 
IAEIES 
ES  CFE 
F  FILE 
NG  SUE 
CRIFTI 
LUCES 
H  MEME 
MAT  (B 
TER  RE 


AME:     MKSR 
ME:    STAND 
5.7.0 
.E.     PRUIE 
EC83 
USED:    MO 
MODIFIED 
CREATED: 
RELEASED 
NED/CLOSE 
£   CREATED 
FOUTINES: 
CN:     THIS 
NAME,    RFI 
ER    IN    THE 
:MRKSEPT) 
FORT". 


CST. PRG 

A ED    REPORT    GENERATOR 


IT 

NIT,    MP 
:    NONE 

NONE 
:    KUNIT 
C:    PERS 
:    MRKSD 

STDRPT 
ECUTINE 
CCAL,  R 

SELECT 

IS    USE 


ER  S 

T    SECONDARY 

CAL 

TO    MRKSDATA    FOR 

RFLC.UAL,RFLDATE 

BKSEATA 


F.SSN 
,ESTC_UA 


LAT 


,    MFLAT 

,  QOAL  (ALL  FILES  CLOSED) 

ATA     (CREATED    AND    DELETED) 

.PRG 

CREATES    A    TEMPORARY    FILE    WHICH 
FLDATE,     PSTQUAL,    PSTDATE    FOR 
ED    UNIT.        A    STANDARD    REPORT 
C    TO    DISPLAY    THE    "MARKSMANSHIP 


=    S.SSN    FIELD; 
L,FSTDATE 


£E 

SI     I 
REFO 

SE     ! 
REFO 

SE     ! 
REFO 
EIAT 

CE     ! 

~BEFO 
FLAT 

SE     ! 
EEEO 
FLAT 

SE     ! 
REFO 
ELAT 

SE     ! 

"reeo 

CE     ! 

"fefo 

ELAT 
CE     I 
"fiEEO 

EIAT 
SE     ! 
WREJO 

ELAT 
CE     ! 
~EEEO 

FLAT 
SE     ! 

5EFO 
SE     ! 
~EEFO 

ELAT 
SE     ! 

EEEO 

FLAT 
CE     ! 
"fiEEO 


(MUNIT) 
RT   FORM 
(MUNIT) 
RT   FORM 
(MUNIT) 
RT   FORM 


E 


CCN  =  ONEP 
(MUNIT)  = 

RT  FORM  B: 
CCN  =  TWOP 
(MUNIT)  = 
RT  FORM  B: 
CCN  =  THRE 
(MUNIT)  = 
RT  FORM  B: 
CCN  =  FOUR 
(MUNIT)  = 
RT  FORM  B: 
(MUNIT)  = 
RT  FORM  B: 
CCN  =  ONEP 
(MUNIT)  = 
RT  FORM  B: 
CCN  =  TWOP 
(MUNIT)  = 
RT  FORM  B: 
CCN  =  THRE 
(MUNIT)  = 
RT  FORM  B: 
CCN  =  FOUR 
(MUNIT)  = 
RT  FORM  B: 
(MUNIT)  = 
RT  FORM  B: 
CCN  =  CNEP 
(MUNIT)  = 
RT  FORM  B: 
CCN  =  TWOP 
(MUNIT)  = 
ET  FORM  B: 


»A» 

KEKSRPT 

•  g«  a  £  jj 

KRKSRPT 
•E»  .AN 

MEKSRPT 

IT 

•E»  .AN 

MRKSRPT 
LT 

•  E'  .AN 
MRKSRPT 
EFLT 
•E»  .AN 
MRKSRPT 
ELT 

*Cf  .AN 

MRKSRPT 

•C  .AN 

MRKSRPT 

LT 

•C  .AN 

MRKSRPT 

II 

•C  .AN 

MRKSRPT 

EELT 

•C  .AN 

MRKSRPT 

ELT 

i  £i  .AN 

MRKSRPT 

•E«  .AN 

MEKSRPT 

IT 

»E»  .AN 

MRKSRPT 

LT 

'  E'  .AN 

MRKSRPT 


E.  ! (MPLAT)  = 
FCR  COMPANY  = 

E.  ! (MPLAT)  = 
FCR  COMPANY  = 

E.  ! (MPLAT)  = 
FOR  COMPANY  = 


E. 
FO 

E. 

FO 

E. 

FO 
E. 


(MPLAT)  = 
COMPANY 

(MPLAT)  = 
R  COMPANY 

(MPLAT)  = 
COMPANY 


(MPLAT)  = 
FOR  COMPANY 


E. 

FC 

E. 

FC 

E. 


(MPLAT)  = 
R  COMPANY 

(MPLAT)  = 
COMPANY  ■ 

(MPLAT)  = 


FCR  COMPANY  = 

E.  ! (MPLAT)  = 
FOR  COMPANY  = 

B.  ! (MPLAT)  = 
FCR  COMPANY  = 

(MPLAT)  = 
FCR  COMPANY  = 

(MPLAT)  = 
FCR  COMPANY  = 


A» 

ONECO 

B« 

ONECO  .AND. 

C« 

ONECO  .AND. 

D» 

ONECO  .AND. 

E» 

ONECO  .AND. 

A1 

TWOCO 

Br 

TWOCO  .AND. 

C« 

TWOCO  .AND. 

D« 

TWOCO  .AND. 

E« 

TWOCO  .AND. 


A* 

THREECO 

B» 

THREECO  .AND, 

C« 

THREECO  .AND, 

D» 

THREECO  .AND, 
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CA 

CA 
CA 

CA 

CA 
CA 


ENDCA 

USE 

EELEA 

EELET 

BETUB 


PIAIC 

SE  !  ( 
EEEOE 
FLAIC 

SE  !  ( 
FEEOR 

SE  !  ( 
EEEOR 
EIA1C 

SE  !  ( 
FEEOB 
EIAIC 

SE  !  ( 
BEEOR 
EIAIC 

SE  !  ( 
EEEOE 
EIAIC 

SE 


CN  = 
MUNI 
T  FO 
CN  = 
MUNI 
I  FO 
MUNI 
T  FO 
CN  = 
MUNI 
T  FO 
CN  = 
MUNI 
T  FO 
CN  = 
MUNI 
T  FO 
CN  = 


THRE 

RH 

s 

B: 

FOD 

RM 

= 

B: 

11, 

= 

B: 

CNEF 

51 

= 

B: 

TWOP 
T)  = 

RM  B: 
THRE 

EM  3: 
FOUR 


EELT 

•C»  .AN 

MEKSRPT 

EIT 

»E»  .AN 

MRKSRPT 

•E»  .AN 

MRKSRPT 

II 

«E'  .AN 

MRKSRPT 

IT 

•E«  .AN 

MRKSRPT 

EELT 

«£•  .AN 

MEKSRPT 

EIT 


C.  ! 

FCR 

C.  ! 

FOE 

C.  ! 

FOR 

E.  ! 

FCE 

E.  ! 

FCR 

E.  ! 
FCR 


(MPLAT)  =  •  E1 
COMPANY  =  THREECO  .AND. 

(MPLAT)  =  'A» 

COMPANY  =  FOURCO 
(MPLAT)  =  '  B» 

COMPANY  =  FOURCO  .AND. 

(MPLAT)  =  'C» 

CCMPAxNY  =  FOURCO  .AND. 

(MPLAT)  =  ■ D« 
COMPANY  «  FOURCO  .AND. 

(MPLAT)  =  •  E» 
COMPANY  =  FOURCO  .AND. 


SE  tUNIT,  MPLAT 
E  FILE  MRKSDATA 
N 
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H.       HCS    STATUS    ROUTIKE 

*  ROUTINE    NAME:     MOSSTAT.FRG 

*  MOEULE    NAME:     STANDARD    REPORT    GENERATOR 

*  VERSION:    5.8. 0 

*  AUTECE:    R.E.     PRUIEII 

*  DATE:     6NOV83 

*  VARIAEIES    USED:    ONECO,    TWOCO,    THREECO,    FOURCO,     ONEFIT, 

*  TWCFLT,    THREEPLT,    FCURPLT,    MUNIT,     MPLAT,    UNITNAME, 

*  PLATNAME 

*  VARIABIES    MODIFIED:    NONE 

*  VARIAEIES    CREATED:    COUNT,     MOS,    RK ,    PROCEED 

*  VARIAEIES    RELEASED:    PROCEED,    ROW,    RK,     COUNT,    UNITNAME, 

*  PLATNAME 

*  FILES    CEENED/CLOSEE:    A:PERS    INDEX    A:MOSNDX     (ALL    FILES 

*  CLCSEE) 

*  TEME    FILES   CREATED:    NONE 

*  USING    EOUTINES:    STE5PT.PRG 

*  DESCRIETICN:     THIS    ECUTINE    ERCDUCES    THE    "MOS    STATUS 

*  REPORT".       EACH   TYPE    OF    MOS    IN    THE    SPECIFIED    UNIT    IS 

*  COUNTED    AND    TOTALED,    REGARDLESS    OF    THE    TYPE    OR    NUMEER   OF 

*  DIFEEBENT    MOS'S    IN    THE    PARTICULAR    UNIT.     THE    RESULTS    ARE 

*  THEN    DISPIAYED    BY    KCS    AND    EY    RANK. 

ERASE 

EO    CVFTUNIT 

USE    A:EEES    INDEX    A:MCSNDX 

a    0,20    SAY     "MOS    STATES    REPORT" 

IF    !  (MUNIT) ='Z* 

5)    0,38    SAY    "BATTAIION" 
ENDIF 
IF    !  (MUNIT)  <>    •  E« 

3    0,36    SAY    UNITNAME 
INDIE 
IF     '(MFLAT)O    'E'.ANE.     !(MUNIT)<>    '  E' 

a    0,4  6    SAY    PLATNAME 
ENDIF 

2  2,  10    SAY    "MOS" 

3  2,3C    SAY    "RANK" 
3    2,5  5    SAY    "TOTAL" 
STORE    U    TO    BOW 

EO    WHILE    .NOT.     EOF 

STCFE  PRIMEMOS  TO  EOS 
STCRE  RANK  TO  RK 
STORE  0  TO  COUNT 
EC  CASE 

CASE     !  (MUNIT)  =  'E' 

DO    WHILE    PRIMEMOS=MOS     .AND.    RANK=RK    .AND.     .NOT.; 

T?  P  TT 

STORE    COCNT+1    TO    COUNT 
SKIP 
EN  EDO 
CACE     !  (MPLAT)  =  ,E' 

WDO*WHILE    PRIMEMOS=MOS    .AND.    RANK=RK    .AND.     .NOT.; 
ECF 

IF    CCMPAO=UNIT  NAME 

STORE    COUNT*  1    TO    COUNT 
ENDIF 
SKIP 
ENDDO 
OTEERWISE 

DC    WHILE    PRISEMCS-BOS    .AND.     RANK=RK    .AND.     .NOT.; 
ECE 

IF    COMPAKY=UNIT NAME    .AND.     PL ATCON=PL ATN AME 

STORE    COUNT* 1    TO    COUNT 
ENDIF 
SKIP 
ENEDO 
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ZNECASE 

IF    CCCNT    >    0 

a    BOW,  10    SAY    MCS 
2    FOW,30    SAY    RF 
a    FCW,50    SAY    CCUNT 
SICRS    ROW+2    TO    fCW 
ENEIF 

IF    ROK    >    20 
9    23,0 

ACCEET    "PRESS     'ENTER1     TC    CONTINUE"    TO    PROCEED 
ERASE 

S'ICRE    U    TO    ROW 

2    0,20   SAY    "MOS    STATUS    REPORT" 
IF    !  (MONIT)  =  ,E« 

a    0,38    SAY    "EATIALION" 
ENEIF 
IF    I  (MUNIT)O     ■!■ 

S    C,38     SAY    DMTNAME 
ENEIF 
I?    !  (KPLAT)O     »E».AND.     !(MUNIT)<>    'E' 

a    0,46    SAY    EIATNAME 
ENDIF 

a    2,  10   SAY    "MOS" 
a    2,30    SAY    "RAM" 
a    2,55   SAY    "TOTAL" 
ENDIF 
ENDDC 

RELEASE    EEOCEED ,ROW,£CS,RK, CCUNT ,UNITNAME, PLATNAM E 
DSE 
EETURN 
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C.   MCS  POSTER  ROOTIBE 


ROU 
MOD 
VEE 
AUT 
DAT 
VAR 
FOD 
VAR 
VAE 
VAR 
FIL 
TEM 
USI 
DES 
PER 
RES 
ERASE 
USE  A 
DO  CA 
CA 

CA 

CA 

CA 

CA 

CA 

CA 
CA 

CA 

CA 

CA 

CA 
CA 

CA 

CA 

CA 

CA 
CA 


TIN  I  N 
CLE  NA 
SICN: 

HCR:  R 
E:  6NO 
IABIES 
ECO,  C 
IABIES 
IAELES 
IAEIES 
ES  (OF 
F  FILE 
NG  SUE 

crieti 

SCNNEL 

FCNSE 


MOSR 
STAND 
0 

FRUI 


8ME 

KE: 

5.9 

.    E 

V83 
USED:    MU 

NEPLT,  TW 
MODIFIED 
CREATED: 
RELEASED 

ENED/CLOS 

S   CREATED 

EOUTINES: 

CN:     THIS 
ROSTER    F 

TO    THE    SL 


CST.PRG 

ARC    REPCRT    GENERATOR 


ETT 

KIT,  MP 
CELT,  T 
:    NONE 

NONE 
:    MUNIT 
IE)  :    A: 
:    NONE 

S1DRPT 
IS    A    CO 
CP    THE 
CTUNIT 


LAT,    ONECO,    TWOCO,    THREECO, 
HREEPLT,    FOURFLT 


,    HE I AT 

PERS    INDEX    A:MOSNDX 

.PRG 

KTRCL    ROUTINE    WHICH    CREATES    THE 
UNIT    SPECIFIED    BY    THE    USER'S 
KENU  (5. 1 .0) . 


:E 

SE 

SE 
E 

SE 
R 

SE 
R 
E 

£E 
E 
E 

SE 
R 
E 

SE 
R 
E 

CE 

WR 

SE 
R 
i 

SE 
R 
P 

SE 
E 
P 

SE 
R 
E 

SE 
E 

SE 
E 
E 

SE 
B 
E 

SE 

"b 

E 

SE 
B 
E 

SE 

B 

SE 


EBS    INDEX    A:MCSNDX 


! (MUNIT)  =  * 
EEOBI   FORK    B: 

!  (MUNIT)  =  • 
EEORT    FORK    B: 

! (MUNIT)  =  » 
EEORI  FORK  B: 
LATCCN    ■    ONEP 

!  (MUNIT)  ■  • 
EEOET  FORM  B: 
LATCCN    =    TWOP 

!  (MUNIT)  =  » 
EEORT  FORM  B: 
LATCCN    =    THRE 

!  (MUNIT)  =  • 
EEORT  FORM  B: 
LATCCN    =    FOUR 

!  (MUNIT)  =  • 
EEORT    FORM    B: 

!  (MUNIT)  =  * 
EEORT  FORM  B: 
LATCCN  =  ONEP 

!  (MUNIT)  =  ■ 
EEORT  FORM  B: 
LATCCN  =  TWOP 

!  (MUNIT)  =  • 
EEORT  FORM  B: 
LATCCN  =  THRE 

!  (MUNIT)  =  • 
EEORT  FORM  B: 
LATCCN  =  FOUR 

!  (MUNIT)  =  ■ 
EEORT  FORM  B: 

!  (HDNIT)  =  ' 
EEORT  FORM  B: 
LATCCN  =  CNEP 

!  (MUNIT)  =  ■ 
EEORT  FORM  B: 
LATCCN  =  TWOP 

!  (MUNIT)  =  ■ 
EEORT  FORM  B: 
LATCCN  =  THRE 

!  (MUNIT)  =  ■ 
EEORT  FORM  B: 
LATCCN  =  FOUR 

!  (MUNIT)  =  ■ 
EEORT  FORM  B: 

!  (MUNIT)  =  ' 


E« 

tCSRPT 

A' .AND. 

KCSRPT 

V     .AND 

KCSRPT 

IT 

A»  .AND 

MCSRPT 

LT 

A'  .AND 

MCSRPT 

EELT 

*»  .AND 

MOSRPT 

ELT 

E»  .AND 

MCSRPT 

E»  .AND 

MCSRPT 

IT 

E'  .AND 

MCSRPT 

LT 

I1     .AND 

MCSRPT 

EELT 

E'  .AND 

MCSRPT 

ELT 

C  .AND 

KCSRPT 

C  .AND 

MOSRPT 

IT 

C  .AND 

KCSRPT 

IT 

C»  .AND 

KCSRPT 

EELT 

C»  .AND 

KCSRPT 

ELT 

E*  .AND 

MCSRPT 

E«  .AND 


!(MPLAT)  = 

FCR  COMPANY 
.  !  (MPLAT)  = 
FCR  COMPANY 

.  !  (MPLAT)  = 
FOR  COMPANY 

.  !  (MELAT)  = 
FOR  COMPANY 

.  !  (MPLAT)  = 
FOR  COMPANY 

.  !  (MELAT)  = 

FOR  COMPANY 
.  !  (MPLAT)  = 
FOR  COMPANY 

.  ! (MPLAT)  = 
FOR  COMPANY 

.  ! (MELAT)  = 
FOR  COMPANY 

.  .'  (MPLAT)  = 
FOR  COMPANY 

.  !  (MPLAT)  = 
FCP.  COMPANY 
.  ! (MPLAT)  = 
FOR  COMPANY 

.  ! (MPLAT)  = 
FOR  COMPANY 

.  ! (MPLAT)  = 
FCR  COMPANY 

.  ! (MPLAT)  = 
FCR  COMPANY 

.  ! (MPLAT)  = 
FOR  COMPANY 
.  ! (MPLAT)  = 


1  E  • 

=  "JONECO 
A1 
ONECO 

B' 
ONECO 

C 
ONECO 

D' 

ONECO 

E  * 

TWOCO 
A' 
TWOCO 

B» 
TWOCO 

C» 
TWOCO 

D« 

TWOCO 


ND. 
ND. 
ND. 
ND. 

ND. 
ND. 
ND. 

ND. 


THREECO 

A* 

THREECO 

B« 

THREECO 

C» 

THREECO 

D» 

THREECO 

E« 

FOURCO 

A' 


.AND 
.AND, 
.AND, 
.AND, 
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BEEOB 
EliTC 

CASE     !  (M 

BEEOB 

ELA1C 

CASE     !  (M 

BEEOB 

EIATC 

CASE     !  (M 

FEECR 

ELATC 

ENDCASE 

USE 

ESLEASE    KUN 
EETUEN 


1   FORM    B:PCSRET    FCE 

CN   =    ONEPIT 

UNIT)     =    •£•     -AND.    ! 

T    FORM    B: MCSRPT    FOR 

CN    =    TWOPI1 

UNIT)     =    ■  E«    .AND.     ! 

T    FORM    B: MCSRFT    FOR 

CN    =    THREEEIT 

UNIT)     =    ,I'     .AND.     ! 

T    FORM    B:MCSRPT    FOR 

CN    =    FOUREIT 


IT,     MELAT 


COMPANY    =    FOURCO    .AND 


(MELAT)     = 
COMPANY 

(MELAT)     = 
COMPANY 

(MELAT)     = 
COMPANY 


=  FOURCO  .AND 
=  FOURCO  .AND 
=    FOURCO    .AND 
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P.   PEBSCNNEL  DATA  RCUTI3E 


THBEECO, 


*  ROUTINE  NME:  PERSE  ATA .PR G 

*  MODULE  NAME:  SIANDAFD  REPCRT  GENERATOR 

*  VEBSICN:  5. 10. 0 

*  AOTHCH:    R.    E.     PRUIE1T 

*  EATS:    21NCV83 

*  VARIABLES    USED:    MUMT,    MPLAT,    CNECO,    TWOCO, 

*  FGUFCC,    CNEPLT,    TWCFLT,    THREEPLT,    FO'JRPLT 

*  VARIA3IES    MODIFIED:    NONE 

*  VAEIAELES    CREATED:    COUNT, 

*  VARIABLES    RELEASED:    COUNT 

*  FILES     (CFENED/CLOSEE)  :    A: 

*  TEMP    FILES   CREATED:    NONE 

*  USING    SUEBOUTINES:     SIDRPT.PRG 

*  DESCRIPTION:     THIS    IS    A    CONTECL    ROUTINE    WHICH   CREATES    THE 

*  PEESCNNEL    ROSTER    FCB    THE    UNIT    SPECIFIED    BY    THE    USER'S 

*  RESPONSE    10    THE    SLCTUNIT     MENU  (5. 1 . 0)  . 


PROCEED 
FBOCEED 
FERS  INDEX 


A: ALPHPERS 


ERAS 
USE 
GOTO 
STOR 
DO  H 
CO  c 
c 


E 
A:FEES 

TOP 
E    0    TO 
HILE    .N 
ASE 

ASE    !  (M 

EO    PE 

STCEE 

ASE    !  (M 

IF    CO 

EC 

ST 

EN 

!  (M 

CO 

EO 

ST 

EN 

!  (M 

CO 

EO 

ST 

EN 

!  (M 

CO 

DO 

ST 

EN 

!  (M 

CO 

EC 

ST 

EN 

!  (M 

CC 

DO 

ST 

EN 

!  (M 

CC 

EO 

ST 

EN 

!  (M 

CO 

DO 

ST 

EN 


INDEX    A:ALFHPERS 

COUNT 
CT.     ECF 


ASE 
IE 


ASE 

IF 


ASE 
IE 


ASE 

IF 


ft  CTT 

IE 


ASE 
IF 


ASE 
IE 


UNIT)     =    f 
BSRPT 

COUNT    + 
UNIT)     =     ' 
fiPANY    =    0 

PERSRPT 
CRE    CCUNT 
EIF 

UNIT)     =     • 
MPANY    =    0 

PERSRPT 
ORE    COUNT 
DIF 

UNIT)     =    ■ 
MPANY    =    0 

PERSFPT 
CRE    CCUNT 
EIF 

UNIT)     =     ■ 
MPANY    =    0 

PERSBPT 
ORE    CCUNT 
EIF 

UNIT)     =    • 
MPANY    =    0 

PERSRPT 
CRE    CCUNT 
EIF 

UNIT)     =     ■ 
MPANY    =    T 

PERSRPT 
CRE    CCUNT 
DIF 

UNIT)     =     ■ 
MPANY    =    T 

PERSRPT 
CRE    CCUNT 
EIF 

UNIT)     =     ■ 
MPANY    =    T 

PERSRPT 
ORE    CCUNT 
EIF 


1    TO   CO 

£' .AND. 
SECO 


UNT 
!  (MPLAT)     =    »E« 


♦    1    TO    CCUNT 


?•     .AND 

NECO    .A 


.     !  (MPLAT)     = 
ND.    PLATOON 


♦    1    TO    COUNT 


P.1     .AND 
NECO    .A 


.     !  (MPLAT)     = 
ND.     FLATOON 


♦    1    TO    CCUNT 


*'    .AND 
NECO    .A 


.     I  (MPLAT)     = 
ND.    PLATOON 


♦    1    TO    CCUNT 


2»     .AND 
KECO    .A 


.     !  (MPLAT)     = 
ND.     PLATOON 


•A' 

=    ONEPLT 


■B« 

=    TWOPLT 


=    THREEPLT 


•D« 
=    FOURPLT 


t  TTI 


♦  1    TO    CCUNT 

E»    .AND.     !  (MPLAT)     = 
tfCCO 

♦  1    TO    COUNT 


E'     .AND  .    !  (MPLAT)     =    •  A« 
fcCCO    .AND.     FLATOON    =    ONEPLT 

+    1    TO    CCUNT 

E*     .AND.     !  (MFLAT)     =    • B» 
SGCO    .AND.    PLATOON    =    TWOPLT 

+    1    TO    COUNT 
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CASE     !  (MUNIT)     =    ■  E1     .AND.    !  (MPLAT)     =    ■C" 

IF    COMPANY   =    TfcCCO    .AND.     PLATOON    =    THREEPLT 
CO    PSRSPPT 

STORE    COUNT    ♦    1    TO    COUNT 
ENCIF 
CASE     '(MUNIT)     =    »E'     .AND.     !  (MPLAT)     =    'D1 

IF    COMPANY    =    TfiCCO    .AND.     F-LATOON    =    FOURPLT 
CO    PERSRPT 

STORE    COUNT    ♦    1    TO    CCUNT 
ENCIF 
CASE     !  (MUNIT)     =     'C1    .AND.     !  (MPLAT)     =     «E' 
IE    COMPANY    =    THREECO 
DO    PERSRPT 

STORE    COUNT    ♦    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =    '  O     .AND.    !  (MPLAT)     =    »A' 

IF    COMPANY   =    THBE2C0    .AND.     PLATOON    =    ONEPLT 
CO    PERSRPT 

STCRE    CCUNT    ♦    1    TO    CCUNT 
ENCIF 
CASE    !  (MUNIT)     =     »C'    .AND.     '.(MPLAT)     =     'B' 

IF    COMPANY    =    TEFEECO     .AND.     PLATOON    =    TWOPLT 
DO    PERSRPT 

STCRE    COUNT    *    1    TO    CCUNT 
ENDIF 
CASE     !  (MUNIT)     ■    "  C*     .AND.    '.(MPLAT)     =    •C1 

IF    COMPANY    =    THEEECO    .AND.     PLATOON    =    THREEPLT 
CO    PERSRPT 

STCRE    CCUNT    ♦    1    TO    CCUNT 
ENCIF 
CASE     !  (MUNIT)     =     «C»     .AND.     !  (MPLAT)     =     'D* 

IE    COMPANY    =    THREECO     .AND.    PLATOON    =    FOURPLT 
DO    PERSRPT 

STCRE    COUNT    ♦    1    TO    COUNT 
ENDIF 
CASE     ! (MUNIT)     =    'C     .AND.    !  (MPLAT)     =    'E« 
IF    COMPANY    =    FCCRCO 
EC    PERSRPT 

STCRE    CCUNT    ♦    1    TO    CCUNT 
ENCIF 
CASE     !  (MUNIT)     =     »C    .AND.     !  (MPLAT)     =     'A' 

IE    COMPANY    =    FCCRCO    .AND.    PLATOON    =    ONEPLT 
CO    PERSRPT 

STCRE    CCUNT    ♦    1    TO    COUNT 
ENDIF 
CASE    '(MUNIT)     =    •£•     .AND.    !  (MPLAT)     =    'B« 

IF    COMPANY    =    FCURCO    .AND.     PLATOON    =    TWOPLT 
CO    PERSRPT 

SICRE    COUNT    +     1    TO   COUNT 
ENCIF 
CASE     !  (MUNIT)     =     'C    .AND.     !  (MPLAT)     =     «C 

IF    COMPANY    =    FCURCO    .AND.    PLATOON    =    THREEPLT 
DO    PERSRPT 

STCRE    CCUNT    ♦    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =    •  E1     .AND.     !  (MPLAT)     =    'D' 

IF    COMPANY    =    FCDBCO    .AND.     PLATOON    =    FOURPLT 
CO    PSRSEPT 

STCRE    CCUNT    ♦    1    TO    CCUNT 
EN  CIF 
ENDCASE 
IF    CCUNT    =    4 
2    22,0 

ACCEET    "ERESS    'ENTER'    TO    CONTINUE"    TO    PROCEED 
STCRE    0    TO   COUNT 
ERSSE 
ENDIF 
SKIP 
ENDDC 
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BELEASE    CCUNT,     PEOCEIE 

CSE 

FETUBK 
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Q.   FIBSCNNEL  DATA  FCEMAT  HCDTINE 

*  BOOTINE    NAME:     PERSEFT.PRG 

*  MODCLE    NAME:     STANDABD    BEPCRT    GENERATOR 

*  VEBSICN:    5.10.  1.0 

*  DATE:21NOV83 

*  VAEIAELES    USED:    COUNT 

*  VABIAEIES    MODIFIED:    NONE 

*  VABIAELES    CREATED:     NONE 

*  VARIABLES    RELEASED:    NONE 

*  FILES     (OPENED/CLOSED):    NONE 

*  USING    SUBEOUTINES:     EERSPATA.PRG 

*  DESCRIPTION:     THIS     IS    A    REPORT    FORMAT    COMMAND    FILE    WHICH 

*  DISPLAYS    THE    FORMAL    FOR    THE    PEBSONAL    DATA    REPORT    AND    GETS 

*  THE    FIELD    VARIABLES    EROM     THE    PERS.DBF    WH LCH    IS    OPENED    AND 

*  CLCSED    IN    PERSDATA.PRG. 
* 

2  COCNT    *    6,0    SAY    "NAKE    " 

3  $,5    SAY    NAME 

a    $,42    SAY    "    SSN    " 

3    $,47    SAY    SSN 

3    $+1  ,0    EAY    "RANK    " 

2  $,5    SAY    RANK 

a    $,2C    SAY    "    PRIMARY    £CS    " 

3  $,35    SAY    FRIKEMOS 

a    $,42    SAY    "    SECCNDABY    MOS     " 

a    $,70    SAY    SECMOS 

3    $+1  ,0    SAY    "COMPANY    " 

a    $,8    SAY    CCMPANY 

a    $,2C    SAY    "    PLATOON    " 

a    $,30    SAY     ELATOCN 

3    $,42    SAY    "    JOIN    DATE    " 

3    $,5  3    SAY    JOIN  DATE 

3    $,62    SAY    "    SAS    " 

a    $,67    SAY    EAS 

3    J+1-0    SAY    "BIRTHDATE" 

3    $, 10    SAY    ERTHDATE 

3    $,2C    SAY    "    HEIGHT" 

2  $,2S    SAY    EEIGHT 

3  $,42    SAY    "    WEIGHT" 
3    $,50    SAY    WEIGHT 

3    $,62    SAY    "   COMMENTS:" 
3    $.7  3    SAY    COMMENT 
BETUBN 
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B-       EST    STATUS    ROUTISE 

*  ROCTINE    NAME:     ESTSTAT.PRG 

*  MOEULE    NAME:     STANDARD    REPORT    GENERATOR 

*  VERSION:     5.11.0 

*  AUTECR:    B.    S.     PRUIETT 

*  DATE:    22DEC83 

*  VABIAELES    USED:    MUNIT,    MPLAT,    ONECO,    THOCO,    THREECC, 

*  FOUECO,CNEPLT,    TWCIIT,    THBEEELT,    FOURPLT,    ZZTOTAL,    ZZCOCr 

*  ZZHIS,    ZZCOD,     ZZINT,    ZZAID,    ZZONI,     ZZNBC  ,    ZZMKS,    ZZTAC, 

*  ZZPFI1,    ZZPFT2 

*  VARIABLES    MODIFIED:    NONE 

*  VABIAELES    CREATED:       PROCEED 

*  VARIABLES    RELEASED:    ZZ?????? 

*  FILES     (OPENED/CLOSEE):    B:EST,    A:PERS     (ALL    FILES    CLOSED) 

*  TEKP    FILES   CREATED:    TEMP     (CREATED    AND    DELETED) 

*  USING    SUBROUTINES:     STDRPT.PEG 

*  DESCBIPTICN:     THIS    BCUTINE    CREATES    A    TEMPORARY    FILE    THAT 

*  INCLUDES    THE    ALL    ESSENTIAL    SUEJECT    AND    PFT    EIELDS    FROM 

*  THE    EST.DEF    FOR    MEMEERS    IN    A    USER    SPECIFIED    UNIT.       FROM 

*  THIS    FILE    IT    CCUNTS    THE    TCTAI    NUMBER    OF    UNIT    MEMEERS    THAT 

*  HAVE    COMPLETED    ALL    ELEMENTS    IN    EACH    TRAINING   CATEGCRY. 

*  THE    "EST    STATUS    REECRT"    IS    DISPLAYED    WHICH    INCLUDES 

*  TOTALS    ECR    EACH    TRAINING    CATEGORY    AND    THE    PERCENTAGE 

*  COMPLETED    FOR    EACH    TRAINING    CATEGORY. 

ERASE 
EO    CASE 

CASE     !  (MUNIT)     =     •  E' 

USE    E:EST 

DC    CNIEST 
CASE     ! (MUNIT)     ■     'A'.AND.     !(MPLAT)     =    »E» 

SELECT    PRIMARY 

USE    A:PERS 

SELECT    SECCNDA5I 

US  I    E:EST 

SELECT   PRIMARY 

JOIN    TO    TEMP    FCR     (P.COMP A NY=ONECO    .AND.    P.SSN=SSN); 

FIELDS   COC  .HIS  ,COD ,IN T , AID, UNI, PFT 1CLSS ,PFT2CLSS, 

NEC,MKS, TAC 

CSE    TEMP 

EC    CNTEST 

DELETE   FILE    TE£E 
CASE     MMUNIT)     =     ■  i%     .AND.     !  (MPLAT)     =    'A« 

SELECT    PRIMARY 

USE    A:PSRS 

SEIECI    SECCNDAEY 

USE    E:EST 

SELECT   PRIMARY 

JOIN    TO    TEMP    FCR     (P. COMPANY    =ONECO    .AND.    P.PLATOCN    =; 

CNEPLT    .AND.     P.SSN=SSN)     EIELDS    COC, HIS, COD, INT , AID, ; 

UNI,PET1CLSS,PET2CLSS ,NEC,MKS,TAC 

CSE    TEMP 

DC    CNTEST 

DELETE   FILE    TEPI 
CASE     !  (MUNIT)     ■    •  1«     .AND.    !  (MPLAT)     =    »B' 

SELECT    PRIMARY 

USE    A:PERS 

SEIECI    SECCNDAEI 

USE    E:EST 

SELECT    PRIMARY 

JOIN    TO    TEMP    FCR     (P. COMPANY    =ONECO    .AND.    P.PLATOCN; 

=  TSCPLT    .AND.     I.SSN=S.SSN)     FIELDS    COC ,  HIS  ,  COD ,  INT  ,  ; 

AIE,UNI, PFT 1 CLSS, PFT 2 CLSS, NBC, MKS, TAC 

CSE    TEMP 

EO    CNTEST 

DEIETE   FILE    TEKE 
CASE     !  (MUNIT)     =     'V     .AND.     !  (MPLAT)     =     »C« 
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SELECT   PRIMARY 

USE    A:PERS 

SELECT    SECONDAEY 

USE    E  *  EST 

SELECT   PRIMARY 

JCIN    TO    TEMP    FCf     (P.CCMFANY    =ONECO    .AND.    P. PLATOON; 

=    THEEEPLT    .ANC.    P.SSN  =  S.SSN)     FIELDS    COC, HI S  ,CCD ,  ; 

INI,  A ID, UNI,PFT1CLSS, PFT2CLSS , NBC, MKS ,T AC 

OS  I    TEmS 

DC    CNIEST 

DELETE  FILE  TEMP 
CASE     !  (MUNIT)    =     • i*    .AND.     !  (MPLAT)     =     'D1 

SELECT   PRIMARY 

USE    A:PERS 

SELECT   SECONDAEY 

USE    B:EST 

SELECT   PRIMARY 

JCIN    TO    TEMP    FCF     (F.CCMFOY    =ONECO    .AND.    P. PLATOON; 

=ECURPLT     .AND.     F.SSN=S.SSN)     FIELDS    COC, HIS ,CCD ,INT, ; 

AIE,UNI,PFT1CLSS,PFT2CLSS,NBC,MKS,TAC 

USE    TEMP 

DC    CNIEST 

DELETE  FILE  TEMP 
CASE     !  (MUNIT)    =     »E»    .AND.     !  (MPLAT)     =     ■  E* 

SELECT    PRIMARY 

USE    ArPERS 

SELECT   SECONDAEY 

USE    B:EST 

SELECT   PRIMARY 

JCIN    10    TEMP    FCB     (P.  CCME  ANY=TWOCO    .AND.     P.SSN=SSN); 

EI  ELDS   CO C, HIS  , COD, IN T , AID, UNI, PFT 1C LSS , ; 

PFT2CLSS,NBC,MFS,TAC 

USE    TEMP 

DO    CNIEST 

DELETE  FILE  TEMP 
CASE     !  (MUNIT)    =     »E'    .AND.     !  (MPLAT)     =     'A' 

SELECT   PRIMARY 

USE    A:PERS 

SELECT  SECONDAEY 

USE  BtEST 

SELECT   PRIMARY 

JCIN    10    TEMP    FCF     (P.CCMPANY    =TWOCO    .AND.    P. PLATOON    =; 

CNEPLT    .AND.     P.SSN=SSN)     FIELDS    COC , HIS, COD , INT  ,  AID,  ; 

UNI,FFT1CLSS,PFT2CLSS , NEC, MKS, T AC 

USE    TEMP 

DC    CNIEST 

DELETE  FILE  TEMP 
CASE     !  (MUNIT)     =     •£•    .AND.     !  (MPLAT)     =     ,B» 

SELECT   PRIMARY 

USE    A:PERS 

SELECT   SECONDAEY 

USE    B:EST 

SELECT   PRIMARY 

JCIN    10    TEMP    FCF     fP.CCMFANY    =TWOCO    .AND.    P. PLATOON; 

=  TWOPLT    .AND.     F.SSN  =  S.SSN)     FIELDS    COC  ,HIS , COD  ,  INT  ,  ; 

A IE, UNI, ?F T1 CL SS,PFT2CLSS, NBC, MKS,T AC 

USE    TEMP 

DO    CNIEST 

DELETE  FILE  TEMP 
CASE     !  (MUNIT)     =     «E»    .AND.     !  (MPLAT)     =     «C« 

SELECT   PRIMARY 

USE    A:PERS 

SELECT   SECONDAFY 

USE    E:EST 

SELECT    PRIMARY 

JCIN    10    TEMP    FCF     (P.CCMFANY    =TWOCO    .AND.    P. PLATOON; 

=TEREEPLT    .AND.    P.SSN=S.SSN)     FIELDS    COC , HIS , COD, ; 

IN I, A ID, UNI,PFI1CLSS, PFT2CLSS , NBC, MKS , T AC 

USE    TEMP 
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DO    CNTEST 
DELETE    FIL 

CASE     !  (MUNIT) 
SELECT    PRI" 
USE    A:PERS 
SELECT   SEC 
USE    E:EST 
SELECT   PRI 
JOIN    10    TE 
EOUPPLT    .A 
AIE#UNI.PF 
DSE    TEMP 
DO    CNTEST 
DELETE    FIL 

CASE     !  (MUNIT) 
SELECT   PRI 
DSE    A.-PERS 
SELECT   SEC 
CSE    E:EST 
SELECT   PRI 
JOIN    10    TE 
S.SSN)     FIE 
PFI2CLSS,N 
DSE    TEMP 
DO    CNTEST 
DELETE   FIL 

CASE     !  (MUNTT) 
SELECT    PRI 
USE    A:  PEES 
SELECT   SEC 
OSE    B:EST 
SELECT    PRI 
JOIN    10    TE 
=    CNEPLT    . 
AID,UNI,PF 
OSE    TEMP 
.  DC    CNTEST 
DELETE    FIL 

CASE     MMONIT) 
:LECT   PRI 


E    TEMP 

=     '  E»    .AND.     !  (MPLAT)     =     'D' 
MARY 


CNDAEY 

MARY 

EP    FCF     (P.C 

ND.     P.SSN=S 
T1CLSS,PFT2 


CMPANY    -TWOCO    .AND.    P.  PLATOON    =; 
.SSN)     FIELDS    COC, HIS, COD, INT,; 
CLSS,NBC,HKS,TAC 


E    TEMP 
=     1C*    .AND.     !  (MELAT)     =     »E 

MARY 


ONDABY 

MARY 

MP    FCF     (P.C 

LDS    CCC,HIS 

EC,MFS,TAC 


E   TEMP 
=     •  C     .AND 

MARY 

CNDAEY 

MARY 

MP    FCF     (P.C 

AND.     P.SSN= 
T1CLSS,PFT2 


CMPSNY    =THRSECO    .AND.     P.SSN=; 
, COD, INT, A  ID, UN  I, PFT 1 C LSS , ; 


.     !  (MPLAT)     =     'A' 


CMPANY    =THREECO    .AND.     P. PLATOON; 
S.SSN)     FIELDS    COC, HIS , CCD  ,  I  NT,  ; 
CLSS,NBC,MKS,TAC 


SE 

OSE    A'.PERS 

SELEC1    SECCNDAEY 

CSE    B:EST 

SELECT    PRI 

JOIN    10    TE 

=    1W0PLT 


E   TEMP 
=     »C»    .AND.     !  (MPLAT)     =     '3 

MARY 


AIE,UNI,PF 
USE    TEMP 
DO    CNIEST 
DELETE   FIL 

CASE     !  (MUNIT) 
SELECT   PRI 
USE    A:PERS 
SELECT   SEC 
USE    BtEST 
SELECT   PRI 
JOIN    TO    TE 
=TEREEPLT 
AID,  UNI.PF 
USE    TEMP 
DC    CNIEST 
DELETE    FIL 

CASE  !  (MUNIT) 
SELECT  PRI 
OSE  A:PERS 
SELECT  SEC 
OSE  B:EST 
SELECT  PRI 
JCIN    TO    TE 


MARY 

MP    FCF     (P.C 

AND.     E.SSN= 

T1CLSS,PFT2 


CMEANY=THRSECO  .AND.  P.PLATCCN; 
S.SSN)  FIELDS  COC, HIS , CCD  , INT, ; 
CLSS,N6C,MKS,TAC 


E    TEMP 

=     «C»    .AND 
MARY 

CNDABY 

MARY 

MP    FCF     (P.C 

.AND.    P. SSN 

T1CLSS,PFT2 


!  (MPLAT)     =     «C« 


CMPfiNY  =THEEECO  .AND.  P. PLATOON; 
=S.SSN)  FIELDS  COC ,HIS ,COD , INT , ; 
CLSS,NBC,MKS,TAC 


E   TEMP 

=     »C»     .AND.     !  (MPLAT)     =     'D' 
MARY 

CNDAEY 

MARY 

MP    FCB     (P.CCMPdNY=THRSECO    .AND.     P. PLATOON; 
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=    EOUEPLT     .AND.    P.SSN=S.SSN)     FIELDS    COC ,HI S ,COD , ; 

HIS,CCD,INT,AIE,UNI,PETKLSS,?FT2CLSS,NEC,MKS,IAC 

CSE    TEMP 

DC    CNTEST 

DEIETE   FILE    TE£E 
CASE     !(MUNIT)     =     «E'     .AND.    !  (MPLAT)     =    »E» 

SEIECI    PRIMARY 

OSS    A:PERS 

SEIECI    SECCNDAEY 

USE    E:EST 

SEIECI    PRIMARY 

JCIN    TO    TEMP    FCE     (P. COMPANY    =FOURCO    .AND.; 

E.SSN=SSN)     FIEIDS    COC  ,HIS  ,CCD, INT , AID,0 NI, PFT1CLSS, 

PET2CLSS,NEC,MKS,TAC 

USE    TEMP 

CO    CNTEST 

DEIETE   FILE    TEKE 
CASE     !(MUNIT)     =    •  E»     .AND.     !  (MPLAT)     =    '  A» 

SEIECI   PRIMARY 

USE    A:PERS 

SELECT    SECCNDAE? 

OS  I    E:EST 

SEIECI   PRIMARY 

JOIN    TO    TEMP    FCE     (P. COMPANY    =FOURCO     .AND.     P.PLATCCN 

=CNEPIT    .AND.     CtiEPLT     .  ANE.     P.SSN=S.SSN)     FIELDS    COC, 

BIS, COD, INT, AIE,PFT1CLSS,PFT2CLSS,NBC,MKS,TAC 

CSE    TEMP 

DO    CNTEST 

DEIETE   FILE    TEKE 
CASE     !(MUNIT)     =    ,E»     .AND.     !  (MPLAT)     =    »B» 

SELECT   PRIMARY 

USE    A:PERS 

SEIECI   SECCNDAEY 

US  I    E:EST 

SEIECI    PRIMARY 

JOIN    TO    TEMP    FCF     (P. COMPANY    =FOURCO     .AND.     P.PLATCCN 

=  TiiOPIT    .AND.     E.  SSN=S  .  SS  N)     FIELDS    COC,  HIS  ,  COD,  INT,  ; 

AIE,UNI, PFT1CLSS,PFT2CLSS,NBC,MKS,TAC 
CSE    TEMP 

DO    CNTEST 

DEIETE   FILE    TEPE 
CASE     MMUNIT)     =     •  E«     .AND.     !  (MPLAT)     =     'C* 

SEIECI    PRIMARY 

USE    A:PERS 

SEIECI    SECCNDAFY 

US  I    E:EST 

SEIECI    PRIMARY 

JCIN    TO    TEMP    FCE     (P. COMPANY    =FOURCO     .AND.     P.PLATCCN 

=    IHREEPLT    .ANE.    P.SSN=S.SSN)     FIELDS    COC,  HIS  ,CCD,  ; 

INT.AID,UNI,PFT1CLSS,  ; 

PF12CLSS,NEC,M*S,TAC 

USE    TEMP 

DO    CNIEST 

DEIETE    FILE   TEME 
CASE     !  (MUNIT)     =     •  E«    .AND.     !  (MELAT)     =     '  D' 

SEIECT    PRIMARY      ■ 

USE    A:PERS 

SEIECT   SECONDARY 

CSE    E:EST 

SEIECT   PRIMARY 

JCIN    TO    TEMP    FCE     (P.CCMEANY    =FOURCO    .ANE.     P.PLATOCN 

=ECURELT     .AND.     E.SSN=S.SSN)     FIELDS    COC, HIS ,CCD  ,INT, 

AID,UNI,?FI1CLSS,PFT2CLSS,NBC,MKS,TAC 

USE   TEMP 

DO    CNIEST 

EEIETE    FILE   TEME 
ENDCASE 

2  0,25    SAY    "EST    STATCS    REPORT" 

3  2,0    SA*    "CODE     CF    CCKDUCT..." 
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2 
2 
2 
4 

a 

4 

4 

6 

6 

6 

6 

8 

8 

8 

8 

10 

10 

10 

10 
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12 

12 

12 

14 

14 

14 

14 

16 

16 

16 

16 

18 

18 

18 

18 

20 

20 
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20 

22 

22 

22 

22 


25  S 
3C  £ 
52  S 
C  SA 
25  S 
30  S 
52  S 
C  SA 
25  S 


30 
52 
C 

25 

3C 

52 

C 


s 

s 

SA 

s 
s 
s 

c 


ACCE 
EELE 
CSS 
EETU 


^5 

30 

52 

0  S 

25 

30 

52 

0  S 

25 

30 

52 

C  S 

25 

30 

52 

C  S 

25 

30 

52 

0  S 

24 

31 

62 

C  S 

24 

31 

62 
PI" 
ASI 

EN 


AY 
AY 
AY 

Y  " 
AY 
AY 
AY 

Y  " 
AY 
AY 
AY 

Y  " 
AY 
AY 
AY 
AY 
SAY 
SAY 
SAY 
AY 
SAY 
SAY 
SAY 
AY 
SAY 
SAY 
SAY 
AY 
SAY 
SAY 
SAY 
AY 
SAY 
SAY 
SAY 
AY 
SAY 
SAY 
SAY 
AY 
SAY 
SAY 
SAY 
ERE 
ALL 


(ZZTOTAL- 

•'PERCENT 

ZZTOTAL-Z 

MARINE   CO 

(ZZTOTAL- 

•}PERCENT 

ZZTOTAL-Z 

CLOSE   ORD 

(ZZTOTAL- 

"PERCENT 

ZZTOTAL-Z 

INTERIOR 

(ZZTOTAL- 

•'PEBCENT 

ZZTOTAL-Z 

"FIRST    AI 

(ZZTOTAL 

''PERCENT 

ZZTOTAL- 

"EQUIFMEN 

(ZZTOTAL 

'^PERCENT 

ZZTOTAL- 

"NBC.  .." 

(ZZTOTAL 

''PERCENT 

ZZTOTAL- 

"  MARKSMAN 

(ZZTOTAL 

•'PERCENT 

ZZTOTAL- 

"INDIVID 

(ZZTOTAL 

''PERCENT 

ZZTOTAL- 

"PFT1..." 

((ZZTOTA 

"PERCENT 

(ZZTOTAL 

"PFT2..." 

((ZZTOTA 

'•PERCENT 

(ZZTOTAL 

SS    'ENTER 

LIKE    ZZ? 


ZZCOC)  /ZZI 
CCMELETED 
ZCOC    USING 
RES    HISTCR 
ZZHIS)/ZZT 
COMPLETED 
ZHIS    USING 
EF    DRILL.. 
2ZCOD)  /ZZT 
CCMPLETED 
ZCOD    USING 
GUARD..  ." 
ZZINT)  /ZZT 
CCMPLETED 
ZINT    USING 
E .  .  .  " 
-ZZAID) /ZZ 

COMPLETED 
ZZAID  USIN 
I/UNIFORMS 
-ZZUNI) /ZZ 

COMPLETED 
ZZUNI    USIN 


OTAL*100    USING     '999' 

it 

. .  . 

t  999  i 

y.  .  r " 

OTAL*100  USING  '999' 
it 

"19991 
11 

CTAL*100    USING    '999' 
11 

"19991 

OTAL*100    USING     '999' 
11 

' 19991 


IOTAL*100 
11 

G* '999' 
11 

t6tal*ioo 

If 

G*  '999' 


-ZZNBC) /ZZTCTAL*100 
MPLETED    " 


USING    '999' 
n 


CO! 
ZZN3C 
SHIP.. 
-ZZMKSWZZ  TOTAL*  100 

CCMELETED    ..." 
ZZMKS    USING    • 999' 
TAC    MEASURES. ..  " 
-ZZT  AC)" /ZZTOTAL*  100 
MPLETED    ..." 


USING  '999' 

USING  '999' 

USING  '999' 

USING  '999' 

USING  '999' 


CC 

ZZTAC 


USING    !999« 


I-ZZPFT1) /ZZTOTAL) *1 

COMPLETED    PFT    ONE. . 

-ZZPFT1)     USING    '999' 


00    USING     '999' 
11 


L-ZZPFT2)  /ZZTOTAL)  *1 
CCMPLETED    PFT    TWO. . 
-ZZPFT2)     USING    '999' 

TO    CONTINUE"    TO    PROCEED 


00    USING     '999' 
ti 


-?-?•?•?-? 
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EST  COONT  ROUTINE 


ROU 
MOD 
VEB 
AUI 
DAT 
VAE 
ZZA 
VAR 
VAE 
VAE 
FII 
TEM 
CSI 
DES 
TOT 
THE 
ONE 

cot 


TINE  N 
OLE  NA 
SICN: 
HOE:  E 
E:  12E 
TABLES 
ID,  ZZ 
IABIES 
IAEIES 
IABIES 
ES  CFE 
F  FILE 
KG  SUE 
CRIETI 
AL  TEA 
NUKBE 
CE  MC 
FLSTED 


AME: 
ME:     S 
5-11. 

.E.     P 
EC8  3 

USED 

UNI, 

MODI 

CREA 

EELE 

NED/C 

S   CRE 

FOUTI 

CN:     T 

INING 

E   OF 

EE    TE 


CNTEST.PEG 

TANDABD    BEPCET    GENERATOB 

1.0 

BUIETT 

:    ZZTCTAL,     ZZCCC,    ZZHIS,    ZZCOD,    ZZINT, 

ZZNBC,    ZZMKS,    ZZTAC,    ZZPFT1,    ZZPFT2 

FIED: 

TED:     NONE 

ASED:    NONE 

LOSEI:    NONE 

ATED:    NONE 

NES:     ESTSTAT.PEG 

HIS    IS    A    SIMPLE    EOUTINE    THAT    COUNTS    THE 

CATEGORIES    THAT    INCLUDE    A    »*"     (I.E.     COUNTS 
THAI  KING    CATEGORIES    THAT    CURRENTLY    INCLUDE 
AINING    ELEMENTS    THAT    HAVE    NOT    BEEN 


COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
COUNT 
RETURN 


TO  ZZTOTAL 


FCE 

FOB 
FOE 
FOE 
FOB 
FOE 
FOB 
EOF 
FOE 
FCE 
FOE 


*•$ 
*»$ 
*•$ 
*■$ 
#•$ 

*»$ 
*•$ 

»«§ 


COC)  TO  ZZCOC 

HIS)  TC  ZZHIS 
'COD)  TC  ZZCOD 

INT)     TC    ZZINT 

AID)     TC    ZZAIE 
'UNI)     TC    ZZUNI 

NEC       TC    ZZNBC 
'MKS)     TO    ZZMKS 

TAC)     TC    ZZTAC 
'PFT1CISS)    TO    ZZFFT1 
'PFT2CLSS)     TO    ZZFFT2 
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I.       EST    ROSTER    ROOTIHI 

*  ROUTINE    NAME:     ESTRCST.PRG 

*  MODULE    NAME:     STANDARD    REPORT    GENERATOR 

*  VERSION:     5.12.0 

*  AUTHOR:    R.    E.     PRUIETT 

*  DATE:     20DEC83 

*  VAEIAELES    USED:    MOBIT,    MPLAT,    ONECO,    TWOCO,    THR2ECC, 

*  FOUECC,    CNEPLT,    TWCELT,    THREEPLT,    FOURPLT 

*  VARIABIES    MODIFIED:    NONE 

*  VARIAEIES    CR.EATED:    COUNT,     PROCEED 

*  VARIABLES    RELEASED:    COUNT,    EECCEED 

*  FILES     (CFENED/CLOSFE)  :    A:PERS    INDEX    A:ALPHPERS,     E:EST 

*  INDEX    E:ESTSSN     (ALI    FILES     ARE    CLOSED). 

*  TEMP    FILES   CREATED:    NONE 

*  USING    SUBROUTINES:     S1DRPT.PRG 

*  DESCRIPTION:     THIS    IS    A    CONTROL    ROUTINE    WHICH   CREATES    THE 

*  PERSONNEL    ROSTER    FOR    THE    UNII    SPECIFIED    BY    THE    USER'S 

*  RESPONSE    TO    THE    SLCTUNIT     BEHO(5.1.0). 

ERA  CE 

SELECT    FFIMSRY 

CSE    A:PERS    INDEX    A:AIIHFERS 

SELECT  SFCCNDARY 

USE    B:EST    INDEX    B:ESTSSN 

SELECT    PRIMARY 

GOTO    TOP 

STORE    0    TO    COUNT 

DO    WHILE    .NOT.     EOF 

CO    CASE 

CASE    !(MUNIT)     =     ■  E1 
DO    ESTRPT 

STORE    COUNT    ♦     1    TO    COUNT 
CASE     !  (MUNIT)     =    'A*. AND.     !  (MPLAT)     =    'E1 
IF    COMPANY    =    OK  ICO 
DO    ESTRPT 

STORE    COUNT    +    1    TO    COUNT 
FNEIF 
CASE     !  (MUNIT)     =     »  I1    .AND.     !  (MPLAT)     =     •  A« 

IF    COMPANY    =    ONECO    .AND.    PLATOON    =    ONEPLT 
DO    ESTRPT 

STORE    COUNT    ♦    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =    ■  P.  ■     .AND.     !  (MPLAT)     =    '3' 

IF    COMPANY    =    ONECO    .AND.     ELATOON    =    TWOPLT 
DO    ESTRPT 

STORE    COUNT    +    1    TO    COUNT 
ENEIF 
CASE     !  (MUNIT)     =     •!•    -AND.     !  (MPLAT)     =     'C* 

IF    COMPANY    =    ONECO    .AND.    PLATOON    =    THREEPLT 
DO    ESTRFT 

STORE    COUNT    +    1    TO    COUNT 
ENEIF 
CASE    !  (MUNIT)     =    •  V     .AND.     !  (MPLAT)     =    'D1 

IF    COMPANY   =    ONECO    .AND.     PLATOON    =    FOURPLT 
EO    ESTRFT 

STORE    COUNT    +    1    TO    COUNT 
ENEIF 
CASE     !  (MUNIT)     =     'E'    .AND.     !  (MPLAT)     =     'E' 
IF    COMPANY    =    TWCCO 
DO    ESTRPT 

STORE    COUNT    +    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =     •  E1     .AND.     !  (MPLAT)     =    'A* 

IF    COMPANY    =    TfcCCO    .AND.     PLATOON    =    ONEPLT 
DO    ESTRPT 

STORE    COUNT    +    1    TO    COUNT 
ENEIF 
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CASE    !  (MUNIT)     =     »E'    .AND.     ! (MPLAT)     =     'E« 

IF    COMPANY    =    T50CO    .AND.    PLATOON    =    TWOPLT 
DO    ESTRPT 

STORE    CCUNT    4    1    TO    CCUNT 
ENDIF 
CASE     !  (MONIT)     =     'E'    .AND.     !  (MPLAT)     =     'C 

IF    CCMPANY    =    TWOCO    .AND.     PLATOON    =    THREEPLT 
DO    ESTRPT 

STORE    COUNT    4    1    TO    COUNT 
ENCIF 
CASE     ! (MUNIT)     =    '  E'     .AND.    !  (MPLAT)     =    'D' 

IF    COMPANY   =    TKCCO    .AND.     PLATOON    =    FOORPLT 
DO    ESTRPT 

STORE    CCUNT    4    1    TO    CCUNT 
FNEIF 
CASE     !  (MUNIT)     =     «C«    .AND.     !  (MPLAT)     =     »E» 
IF    COMPANY    =    TEEEECO 
DC    ESTRPT 

STCRE    CCUNT    +    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =    •  C     .AND.    !  (MPLAT)     =    'A' 

IF    COMPANY   =    THEEECO    .AND.     PLATOON    =    ONEPLT 
DC    ESTRPT 

STCRE    CCUNT    4    1    TO    CCUNT 
ENDIF 
CASE     !  (MDNIT)     =     »C'    .AND.     !  (MPLAT)     =     '3« 

IF    COMPANY    =    TFREECO     .AND.    PLATOON    =    TWOPLT 
DO    ESTRPT 

STCRE    COUNT    4    1    TO    CCDNT 
ENDIF 
CASE    !  (MUNIT)     =    'C     .AND.     !  (MPLAT)     =    'C 

IF    CCMPANY    =    THEEECO    .AND.     PLATOON    =    THREEPLT 
DO    ESTRPT 

STCRE    CCUNT    4    1    TO    CCUNT 
ENDIF 
CASE     !  (MUNIT)     =     'C    .AND.     !  (MPLAT)     =     'D' 

IF    CCMPANY    =    TEFEECO     .AND.     PLATOON    =    FOURPLT 
DO    ESTRPT 

STORE    CCUNT    4    1    TO    CODNT 
ENDIF 
CASE    !  (MUNIT)     =    'E'     .AND.    !  (MPLAT)     =    'E» 
IF    CCMPANY    =    FCDRCO 
DO    ESTRPT 

STCRE    CCUNT    4    1    TO    CCUNT 
ENDIF 
CASE     !  (MUNIT)     =     •  E'    .AND.     !  (MPLAT)     =     'A1 

IF    COMPANY    =    FCCRCO    .AND.    PLATOON    =    ONEPLT 
DO    ESTRFT 

STCRE    CCUNT    4    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =    •  £•     .AND.    !  (MPLAT)     =    «B' 

IF    CCMPANY    =    FCURCC    .AND.     PLATOON    =    TWOPLT 
DO    ESTRPT 

STCRE    COUNT    4     1    TO   COUNT 
ENEIF 
CASE     !  (MUNIT)     =     'E»    .AND.     !  (MPLAT)     =     'C 

IE    COMPANY    =     FCCRCO    .AND.    PLATOON    =    THREEPLT 
DO    ESTRPT 

STORE    COUNT    ♦    1    TO    CODNT 
ENDIF 
CASE     !  (MUNIT)     =     '  E'     .AND.     !  (MPLAT)     =     'D' 

I?    COMPANY    =    FCDRCO    .AND.     PLATOON    =    FOURPLT 
DC    ESTRPT 

STCRE    CCUNT    ♦    1    TO    CCUNT 
ENDIF 
ENDCASE 
IF    CCUNT    -    a 
3    22,  c 
ACCEPT    "PRESS    'ENTER'    TO    CONTINUE"    TO    PROCEED 
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s 

E 
ENDI 
SELE 
SKIP 
ENDD 
EELE 
CSE 
BETU 


TCEE    0    TO    COUNT 

BASE 

B 

CI    FBIMARY 


ASE    CCONT,PEOCEEE 
EN 
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0. 


EST  BEFCRT  FGRHA1  BOUTINE 


RO 
MO 
VE 
AU 
DA 
VA 
VA 
VA 
VA 
FI 
TS 
US 
DE 
DI 


STOR 
a  RO 
a  RO 
3  RO 
STOR 
SELE 
FIND 
3  RO 


RO 
RO 
RO 
RO 
3  RO 

2  RO 

3  RO 

a  ro 
a  ro 


RO 
RO 
RO 
RO 


3  RO 
3  RO 
3  BC 
3  RO 
3  RO 

a  ro 

3  BO 

a  ro 

3  RO 

a  ro 

BELE 
EETU 


BUS 

EUIE 
ESIC 
TfiOE 
IE: 
BIAE 
RIAB 
BIAE 
RIAB 
IES 
ME  F 
ING 
SCRI 
SEIA 
E  (C 
W,0 
W,30 
W,33 
E  SS 
CT  S 
8MS 
W 
H 
W 
H 
H 
fi 
d 
I 
I 
N 
w 
H 
H 
H 
w 
1 
w 

R 

w 
v. 

3 
H 

H 

* 


E  K 

NA 
»: 

:  B 
14N 
LES 
IES 
IES 
IES 
CPE 
HE 
SUE 
ETI 
YS 
CUE 
SM 
SA 
SA 
K  I 
ECC 
SK 


AME:     ESTRI1.PRG 

ME:     STAND2EE    REPCRI    GENERATOR 

5.12.  1.0 

.E.     PEOIETI 

CV83 

USED:    NONE 

MODIFIED  :KCNE 

CREATED:     BOW,    H SSN 

RELEASED  :EOW 
NED/CIOSEE:    NONE 
S   CREATED:    NONE 
ROUTINES:     ESTROST.PRG 
CN:     THIS    FCUTINE    USES. 
THE    EST    RCSTER    REPORT. 
1   *    6)    TO    ECW 

NAME 

Y  RANK 

Y  COMPANY 
C    MSSN 
NDARY 


FORMATS    AND 


+ 
+ 
+ 

+ 

♦ 
+ 

+ 
+ 
+ 
+ 

+ 

+ 

+ 
+ 

+ 
+ 
ASE 


rO 
,1 

,2 
,3 

,4 
#5 
,6 
,7 
,0 
,1 
,2 
,3 
,4 
,5 
f6 
.7 
,0 
#6 
,  1 
,1 
f2 
,3 
,4 
,5 


SAY 

6    SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

6    SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

0   SAY 

6    SAY 

2  SAY 
6    SAY 

3  SAY 
U    SAY 


CF   CONDUCT    " 
HIS    » 


"CODE 
COC 
"MAECOR 

ut  e 

"MARKSMANSHIP  " 
MKS 

"DRILL  " 
COD 
"INTEEIOR  GUARD 
INT 
"MARKSMANSHIP  " 

M  V  O 

"TAC    MEASURES    " 

TAC 

"NBC    " 

NBC 

up  p^p  •)     It 

EFI1CISS 
"PFT2    " 


"EQ 
UNI 


U1P/UNIFORM 


"FIBST  AID  " 
AID 


BOW 
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?.       SBIM    QOALIFICATICB    ROUTINE 

*  ROUTINE    NAME:     SWIMCUAL.PRG 

*  MODULE    NAKE:     STANDARD    REP CST    GENERATOR 

*  VERSION:    5.13.0 

*  AUTECR:    R.    E.     PRUIETT 

*  DATE:    20DEC83 

*  VARIAELES    USED:    MUNIT,    MPLAT,    ONECO,    TWOCO,    THREECC, 

*  FOORCO,    CNEPLT,    TWCPLT,    THREEPLT,    FOURPLT 

*  VARIABIES    MODIFIED:    NONE 

*  VARIAEIES    CREATED:     PROCEED,    COUNT,     S1TOTAL,    S2TOTAL, 

*  S3ICTAI,     UQTOTAL 

*  VARIAELES    RELEASED:    COUNT,    PROCEED,     MSSN,    S1TOTAL, 

*  S2TCTAI,     S3TOTAL,     UCTOTAL,    RCW 

*  FILES     (CFENED/CLOSEE)  :    A: FEES    INDEX    A:ALPH?ERS 

*  TEMP    FILES    CREATED:    NONE 

*  USING    SUBROUTINES:     SIDRPT.PRG 

*  DESCRIPTION:     THIS    ROUTINE    DISPLAYS    THE    SWIM    QUAL    REPORT 

*  FOR    THE    SELECTED    UMT.       THE    SWIM    QUAL    REPORT    CONSIST    OF 

*  EACE    MARINES     NAME, RANK,    UNIT    NAME,    AND    SWIMMING 

*  QUAIIFICAIION     STATES.       AT    TEE    END    OF    THE    REPORT,     SUMMARY 

*  DATA    IS    EISPLAYED     WEICH    INCLUDES    THE    TOTALS    FOR    EACH 

*  QUAIIFICAIION    CATEGORY    ANE    THE    OVERALL    TOTAL    FOR    THE 

*  UNIT. 

ERASE 

2    12,27    SAY    "SWIM    QUAIIFICAIION    REPORT" 

a   22, c 

ACCEPT  "PRESS  'ENTER*  KEY  TC  CONTINUE"  TO  PROCEED 

ERASE 

SELECT    PFIMARY 

USE     A:PERS    INDEX    A:AIPHPERS 

GOTO    TOP 

STORE    0    TO    S1TOTAL 

STORE    0    TO    S2TOTAL 

STORE    0    TC    S3TOTAL 

STORE    0    TO    UQTOTAL 

STORE    0    TO    COUNT 

EO    WHILE    .NCT.     EOF 

DO    CASE 

CASE     !  (MUNIT)     =    • E» 
DC    SWIMRPT 

STCRE    COUNT    ♦     1    TO    COUNT 
CASE     !  <MUNIT)     =     'A'.AND.     !  (MPLAT)     =    •  E« 
IF    COMPANY    =    ONECO 
DO    SWIMRPT 

STCRE    COUNT    +    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =    '  ?'     .AND.    !  (MPLAT)     =    »A» 

IF    COMPANY    =    OKECO    .AND.     PLATOON    =    ONEPLT 
DO    SWIMRPT 

STCRE    CCUNT    +    1    TO    CCUNT 
ENCIF 
CASE     !  (MUNIT)     =     •  A»    .AND.     !  (MPLAT)     =     »B» 

IF    COMPANY    =    ONECO    .AND.    PLATOON    =    TWOPLT 
DO    SWIMRPT 

STCRE    COUNT    +    1    TO    COUNT 
ENDIF 
CASE     !  (MUNIT)     =     'A'     .AND.     !  (MPLAT)     =     'C 

IF    COEPANY   =    OKECO    .AND.     FLArOON    =    THREEPLT 
DO    SWIMRPT 

STCRE    CCUNT    +    1    TO    CCUNT 
ENEIF 
CASE     !  (MUNIT)     =     '  J  »    .AND.     !  (MPLAT)     =     'D* 

IF    COMPANY    =    ONECO    .AND.     PLATOON    =    FOURPLT 
DO    SWIMRPT 

STORE    COUNT    +    1    TO    COUNT 
ENDIF 
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CASE     !  (MDNIT)     =    ■  E»     .AND.    !  (MPLAT)     =    »E« 
IF    COMPANY   =    TfcCCO 
CO    SWIM  HPT 

STCEE    CCUNT    ♦    1    TO    CCDNT 
ENEIF 
CASE     !  (MDNIT1     =     "E1    .AND.     !  (MPLAT)     =     'A' 

IF    COMPANY    =    TWCCO    .AND.    PLATOON    =    ONEPLT 
DO    SWIMRPT 

STORE    COUNT    +    1    TO    CODNT 
ENDIF 
CASE     I(MONIT)     =     »E«     .AND.    !  (MPLAT)     =    »B» 

IF    COMPANY    =    TRCCO    .AND.     PLATOON   =    TWOPLT 
DO    SWIMRPT 

STORE    CCUNT    ♦    1    TO    CCUNT 
ENEIF 
CASE    !  (MDNIT)     =     '£'    .AND.     !  (MPLAT)     =     'C 

IF    COMFANY    =    TfcOCO    .AND.     PLATOON    =    THRESPLT 
DC    SWIMRPT 

STORE    COUNT    *    1    TO    CCDNT 
ENEIF 
CASE     !  (MDNIT)     =    ■  E*     .AND.     !  (MPLAT)     =    'D' 

IF    CCMPANY   =    TfcCCO    .AND.     PLATOON    =    FOURPLT 
DO    SWIMRPT 

STCRE    CCUNT    +    1    TO    CCUNT 
ENEIF 
CASE     !  (MDNIT)     =     «C»    .AND.     !  (MFLAT)     =     •£' 
IF    CCMPANY    =    TEREECO 
DO    SWIMRPT 

STCRE    CCUNT    ♦    1    TO    CCDNT 
ENDIF 
CASE     UMUNIT)     =    «C«     .AND.    !  (MPLAT)     =    'A1 

IF    COMPANY   =    THREECO     .AND.     PLATOON    =    ONEPLT 
DO    SWIMRPT 

STCRE    CCUNT    +    1    TO    CCDNT 
ENEIF 
CASE     !  (MDNIT)     =     •C»    .AND.     !  (MPLAT)     =     'B' 

IF    CCMPANY    =    TEREECO     .AND.     PLATOON    =    TWOPLT 
DO    SWIMRPT 

STORE    COUNT    +    1    TO    CODNT 
ENDIF 
CASE     !  (MDNIT)     =    fC»     .AND.    !  (MPLAT)     =    »C' 

IF    CCMPANY    ■    TEREECO    .AND.     PLATOON    =    THRESPLT 
DO    SWIMRPT 

STCRE    CCUNT    +    1    TO    CCDNT 
ENEIF 
CASE     !  (MDNIT)     =     'C«     .AND.     !  (MPLAT)     =     'D' 

IF    COMPANY    =    TEREECO     .AND.    PLATOON    =    FODRPLT 
DO    SWIMRPT 

STCRE    CCUNT    ♦    1    TO    CODNT 
ENDI? 
CASE     !  (MDNIT)     =    '  E»     .AND.    !  (MPLAT)     =    «E« 
IF    CCMPANY    =    FCCRCO 
DO    SWIMRPT 

STCRE    CCUNT    +    1    TO    CCUNT 
ENEIF 
CASE     '(MDNIT)     =     'E'    .AND.     !  (MPLAT)     =     'A' 

IF    COMPANY    =    FCDRCO    .AND.    PLATOON    =    ONEPLT 
DC    SWIMRPT 
STCRE    COUNT    +    1    TO    CODNT 

CASE     !  (MDNIT)     =    ■  E'     .AND.    !  (MPLAT)     =    'B1 

IF    CCMPANY    =    FCCRCO    .AND.     PLATOON    =    TWOPLT 
DO    SWIMRPT 

STCRE    COUNT    ♦     1    TO   CODNT 
ENEIF 
CASE     !  (MDNIT)     =     *L%    .AND.     !  (MPLAT)     =     'C1 

IE    COMPANY    =    FCDRCO    .AND.    PLATOON    =    THRESPLT 
DO    SWIMRPT 
STCRE    COUNT    +    1    TO    CODNT 
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ENEIF 
CASE    !  (MUNIT)     =    'C     .AND.    !  (MPLAT)     =    «D' 

IF    COMPANY    =    FCCHCO    i AND.     PLATOON    =    FOURPLT 
CO    SWIMRPT 

STORE    CCDNT    +    1    TO    CCDNT 
ENEIF 
ENDCASE 
IF    CCUNT    =    7 

ACCEET    "PRESS    'ENTER1    TO    CONTINUE"    TO    PROCEED 

STORE    0    10   COUNT 

EFASE 
ENDIF 

SELECT    FFIMARY 
SKIP 
HNDDC 
2    2  2,C 

ACCEET    "ERESS    'ENTER'    TO    CONTINUE"    TO    PROCEED 
ERASE 

2    2,2C    S?.Y    "SUMMARY    EATA" 
2    4,1    SAX    "SWIM    QUALIFICATION" 
2   4,25    S5Y    "TOTAL" 
a    6,1     SAX    "S1" 

2    6,25    SAY    S1T0TAL    USING    '999' 
2    7    1    SAX    "S2" 

2   7*25    SAY    S2T0TAL    USING    '999' 
2    8,1     SAX    "S3" 

2    8,25    SAY    S3T0TAL    USING    '9S9' 
2    9,1     SAX    "CNQUALIFIFE" 
2    9.25    SSY    UQTOTAL    USING    '999' 
2    10,25    SAX    "  " 

2    12,25    SAX    STTUTaT+31T0TAL+S3I0TAL  +  UQT0TAL    USING     '9999' 

ACCENT    "ERESS    'ENTER'    TO    CONTINUE"    TO    PROOFED 

RELEASE    CCDNT, PRCCEET,    MSSN , S 1 IOTAL , S3T0TAL, ; 

GQIOIAL,FOW 

CSE 

FETUEN 
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«-       SUM    BEEORT    EOOTIBE 

*  BOUTINI    NAME:     SWIMEPT.PEG 

*  MODULE    NAME:     STANDA5D    EEPCET    GENERATOR 

*  VERSION:    5.13.  1.0 

*  AUTEOB:    R.E.     PRUIETT 

*  DATE:     12DEC83 

*  VAEIAEIES    OSED:NONE 

*  VARIABLES    MODIFIED  :SCNE 

*  VAEIAEIES    CREATED:  ECW,    MSSN,     S1TOTAL,    S2TOTAL,     S3TCTAL, 

*  UQTCTAI 

*  VARIAEIES    RELEASED:KONE 

*  FILES    CPENED/CLOSEE:QUAL    INDEX    QUALSSN 

*  TEMP    FILES    CREATED:KCNE 

*  USING    SUEBOUTINES:     SWIMQUAL.PRG 

*  DESCRIPTION:     THIS    ECUTINE    COUNTS    AND    STORES    THE    NUMBER    OF 

*  PEESCNNEL    IN    TEE    SELECTED    UNIT    THAT    ARE    IN    EACH    SWIMMING 

*  QUALIFICATION    CATEGORY. 

STORE     (COUNT   *    3 )    TO    ROW 

2    ROW,0    SAY    NAME 

2    ROW, 30    SAY    RANK 

2    ROW, 33    SAY   COMPANY 

STORE    SSK    TO    MSSN 

SELECT    SECONDARY 

USE    B:QUAL    INDEX    B:QUALSSN 

EIND    SMSSN 

2    ROK+1  ,  C    SAY    "SKIM    C 

2    EOW-M,  10    SAY    SWIMQU 

DO    CASE 

CASE    SWIMQUAL^1  S1  • 
SICEE    S1TOTAL    + 

CASE    SWIMQUAL=' S2« 
STORE    S2TOTAL    + 

CASE    SWIMQUAL=' S3' 
STORE    S3TOTAL    ♦ 

CASE    SWIMQUAL  =  ,UQ» 
STORE    UQTOTAL    ♦ 
ENDCASE 
EETUEK 


UAL    » 

AL 

1 

TO 

S1TCTAL 

1 

TO 

S2TCTAL 

1 

TO 

S3TCTAL 

1 

TO 

UQTCTAL 
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I.       HUP    RCUTINE 


*  ROUTINE    NAME:     HELP.PRG 

*  MODULE    NAME:     STANDARD    REPCRT    GENERATOR 

*  VERSION:    5.1U.  0 

*  AUTHOR:    R.E.     PRUIETT 

*  DATE:     18JAN84 

*  VARIAEIES    USED:    NONE 

*  VARIABLES    MODIFIED:    NONE 

*  VABIAELES    CREATED:     EELOPT ,    PROCEED 

*  VARIABLES    RELEASED:    NONE 

*  FILES    CPENED/CLOSEE:    NONE 

*  TEMP    FILES   CREATED:    NONE 

*  USING    FOUTINES:    STERPT 

*  DESCRIPTION:     THIS    ROUTINE    PROVIDES 

*  DESCRIPTION    OF       EACH    REPORT    LISTED 

*  SELECTICN      MENU. 


A  FUNCTIONAL 

IN  THE  STANDARD  REEORT 


ERAS 
a    2, 


I: 

10 

1 1 

12 
13 
14 

15 
16 
22 


2 
a 

a 

a 

a 
2 
2 

2 
a 

2 

a 

a 
2 
2 

ACCE 
ERAS 
DO  C 
CA 
TEXT 

1. 

lett 
the 


E 

35 

35 

20 

20 

20 

2C 

20 
2G 
20 
20 
20 
20 
20 
20 

*20 

PI 

E 

ASE 

SE 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


"hel: 


MEND" 
-  —  —  _  ii 


"A.  . 
"B.  . 
"C.  . 
"D.  . 
"E.  . 

"F. 

"G. 

"H. 

"I. 

"J. 

"K . 

"L. 


eelp 
help 
help 
help 
help 
.hel 
.hel 

.HEL 
.HEL 
.HEL 
.HEL 
.HEL 


UNIT  ROST 

TRAINI NG 

TRAINING 

INDIVIDUA 

MARKSMANS 

MARKSMAN 

MOS  STAT 

MCS  RCST 

PERSONAL 

EST  STAT 

EST  RCST 

SWIM  QUA 


ER" 

STATUS  REPORT" 

ROSTER  REPORT" 

L  TRAINING  RECORD" 

HIP  STATUS  REPORT" 

SHIP  ROSTER  REPORT" 

US  REPORT" 

ER  REPORT" 

DATA  REPORT" 
US  REPORT" 
ER  REPORT" 
LIFICATION  REPORT" 


"SELECT  OETIOK  ======>   "  TO  HELPOPT 


!  (EELPOPT)=  ■  A* 


OPTION  A... UNIT  ROSTER 
the  cursor,  next  to  "select  option  ====>",  ty 
er  (A-E)  that  corresponds  to  the  unit  desired. 
by  pressing  the 


At 

er 
letter 


enter  key. 


e  the 

inter 


2.  If  a  company  was  selected  (A-D)  ,  you  will  next  te  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  CFticn  "E"  (i.e.,  BATTAIICN)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 


4.   The  UNIT  ROSTER  REPORT  will  disolay  in  alphabetic  order 
the  NAME,  FANK,  and  PRIMARY  MOS  for* each  member  of  the 
selected  unit  or  subunit.   The  screen  will  scroll 
automatically  unless  stopped  from  the  terminal. 


5.   At  the  end  of  the  report  press  the  enter 

to  the  STANEARD  EEPORT  MENU. 

ENDTEJT 


key  to  return 


CASE 
TEXT 


!  (EELPCPT) =  ■ B' 


CPTION  B... TRAINING  STATUS  REPORT 


1.   At  the  cursor,  next  to  "select  option  ====>",  type  and 


enter  the 
desired . 


letter  (A-E)  that  corresponds  to  the  unit' 
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2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asksd 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  0?  UNIT)  . 

3.  If  option  "E"  (i.e.,  BATTAIION)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 

U.   A  "WORKING"  signal  on  the  screen  will  be  shown  to 
indicate  that  the  computer  is  searching  for  the  information 
you  reguested. 

5.  The  TRAINING  STATUS  EEPCET  provides  for  all  esstential 
subjects,  the  PERCENT  of  the  unit  that  has  succesfully 
completed  each  training  element  and  the  TOTAL  number  of 
unit  members  that  have  completed  each  training  element.   In 
addition,  the  report  includes  completion  status  for  PFT1, 
EFT2,  SWIMCjUAL,  RIFLE  QUAL,  and  PISTOL  QUAL. 

6.  Press  the  enter  key  to  return  to  the  STANDARD  REPORT 
MENU. 

ENDIEXT 

CASE  !  (EELPCPT)  =  ■  C 
TE  XT 

OPTION  C... TRAINING  ROSTER  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.   Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D),  you  will  next  be  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 


3.   If  option  "E"  (i.e.,  BATTAIION)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly,  to  the  report  and 
will  net  be  asked  to  select  a  subunit. 

U.   The  TRAINING  ROSTER  REPORT  heading  will  appear  in  the 

center  of  the  screen.   Press  the  enter  key  to  begin  the 

report. 

END  TEXT 

2  22,0 

ACCEET  "ERESS  'ENTER'  KEY  TO  CONTINUE"  TO  PROCEED 

ERASE 

TEXT 

5.  The    TRAINING   ROSTER    REPORT    displays    in    alphabetic    order 
each    meirber   of    the    selected    unit   or   subunit   and   his 
complete  training   status   for   the   current    year.      If   a 
training   element  has    been   succesfully   completed   for   the 
current    vear,    a    letter   corresponding    to   that   training 
element    mil  be    shown.      A  "*"    symbol   indicates  that    a 
training    element   has    not   been   completed.      For  example, 
"FIRST    AID    AE*H**B**EF"   indicates   that   elements    ABDEE    and    H 
have    been   completed    and    five   of   the   eleven   elements   have 
NOT    been   completed     (i.e.,   C,G,I,J   and   K) .       Four   records 
will    be    displayed   en    the  screen   and   you    will   be    asked    to 
press   the   eiter    key    to   scroll    the   report. 

6.  At   the    end    of   the  report   press  the   enter    key    to    return 
to    the    STANEARD    REPORT    MENU. 

ENDIEXT 

CASE     !  (EELECPT)  =    '  D« 
TEXT 

180 


CPTION  D.  ..INDIVIDUAL  TRAINING  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  th€ 
letter  (A-E)  that  corresponds  to  the  unit  desired.   Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected.  (A-D)  ,  you  will  next  be  asksd 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  option  "E"  (i.e.,  BATTAIICN)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 

4.  At  the  end  of  the  reDort  press  the  enter  key  to  return 
to  the  SIANIARD  REPORT  MENU. 

ENDIEXT 

CASE  !  (EELPCPT)  =  •  E« 
1EXT 

OPTION  E... MARKSMANSHIP  STATUS  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.   Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D)  ,  ycu  will  next  be  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  retort  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OE  UN1I)  . 

3.  If  option  "E"  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  net  be  asked  to  select  a  subunit. 

U.   The  KARKSMANSHIP  STATUS  REPORT  will  display  the 

qualification  results  for  the  unit  or  subunit  members  that 

have  fired  for  qualifi-  cation  during  the  current  year. 

Also,  the  percent  that  has  qualified  in  each  category  (eg. 

EX, SS.KM,UNC)  and  current  year  results  for  rifle  and  oistcl 

will  be  shewn.   The  pistol  qualification  results  include 

enly  these  members  reguired  to  fire  the  pistol  for 

qualif icaticn.   Press  the  enter  key  to  continue  with  the 

report. 

ENDTEXT 

a  22,0 

ACCEPT  "PRESS  'ENTER'  KEY  TC  CONTINUE"  TO  PROCEED 

ERASE 

TEXT 

5.  Ycu    will  be    asked   if  you   want   to   do   a   company    or 
battalion   range    quota   analysis.      If    you    answer  no     ("N")  , 
you    will   automatically  return   to   the   STANDARD    REPORT    MiiflU. 
The    rarae    quota    analysis  allows   you   to    observe,    manipulate 
cr   permanently    change  the  rifle   range    quotas   that    are 
assigned   tc   the    unit    fcr  the   rest   or    the   calendar    year. 
Range    quota   analysis    may  only   be   done    for   the   battalion   or 
for    a   selected   company    (not    platoons) . 

6.  At    the    top    of   the   screen   general   rifle   range    quota 
information    is    displayed   followed   by   the    number   or    quotas 
remaining   in  the  current  calendar   year.       Finally,    an 
indication    whether    remaining    quotas   are    less   than,    areater 
than,    cr   equal    tc   the  number  of    Marines   left    tc    qualify   is 
shown. 

1.      From  this   point    ycu   may    chanae  the   quota   allocation  on 
a   scratch   pad   or  vou    may   return   to   the   STANDARD    REPORT 
MENU.      The    original    set  of    quotas   have  not    been   modified. 
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INDTEXT 
2    22,0 

ACCEPT    "PRESS    ■ ENTER*    KEY    TC    CONTINUE"    TO    PROCEED 

ERAS! 

TEXT 

8.  Th€  scratch  pad  again  shews  the  remaining  gucta 
allocaticns.   Hoievsr,  you  may  make  any  temporary  guota 
changes  you  desire  on  the  scratch  pad  by  simply  overtyping 
the  current  quota  allocation (s) .   The  enter  key  will 
automatically  move  the  curscr  to  the  next  quota-  and  a 
huzzer  will  sound  when  you  reach  the  end  of  each  field. 

9.  After  ycu've  reached  the  last  month's  quota,  you  will 
te  asked  to  select  cn€  of  the  following  three  options: 

A. ..Start  over  on  the  scratch  pad  with  the  original  set 

cf  quotas. 
B...Betum  to  the  STANDARD  REPORT  MENU 
C.  . PERMANENTLY  REPLACE  ORIGINAL  QUOTAS  with  the  set  cf 

cuctas  that  are  currently  displayed  on  the  screen. 

This  is  the  enly  option  that  will  actually  medify 

the  original  set  of  guotas  for  the  unit. 

10.  Cption  A  mav  be  repeated  indefinitely.  Option  E  or 
cpticn  C  will  return  you  directly  to  the  STANDARD  REPORT 
MENU. 

ENDTEJT 

CASE  !  (EELPCPT)  =  ■  F» 
TEXT 

CPTION  F.  ..MARKSMANSHIP  ROSTER  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  the 
letter  (fl-E)  that  corresponds  to  the  unit  desired.   Enter 
the  letter  by  pressing  tne  enter  key. 

2.  If  a  cempany  was  selected  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  cpticn  "E"  (i.e.,  EATTAIICN)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  net  be  asked  to  select  a  subunit. 

U.   The  MARKSMANSHIP  FCSTER  REPORT  will  display  in 
alphabetical  order  ti€  NAME,  RANK.  DATE  OF  QUALIFICATION, 
and  QUALIFICATION  RESULTS  for  each  member  of  the  unit  cr 
subunit.   Current  year  results  enly  will  be  displayed. 

5.   At  the  end  of  the  report  press  the  enter  key  to  return 

to  the  STANIARD  REPOFT  MENU . 

ENDTEST 

CASE  !  (EELPCPT)  =  '  G' 
TEXT 

OPTION  G...MCS  STATUS  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  the 
letter  (fl-E)  that  corresponds  to  the  unit  desired.   Enter 
the  letter  cy  pressing  the  enter  key. 

2.  If  a  cempany  was  selected  (A-D),  ycu  will  next  be  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  opticn  "E"  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  opticn,  ycu  will  gc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 
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a.   The  V.CS    STATUS  REFCRT  displays  the  number  of  unit  cr 
subunit  members  grouped  by  MOS  and  RANK.   The  screen  will 
scroll  automatically  unless  shopped  from  your  terminal. 

5.   At  the  end  of  the  report  press  the  enter  key  to  return 

to  the  STANIARD  EEPOFI  HENO . 

ENDIE2T 

CASE  !  (EELPCPT)  =  «  H» 
TEXT 

OPTION  H...MCS  ROSTER  REPORT 

1.  At  the  cursor,  nest  to  "select  option  ====>"   typs  the 
letter  (A-E)  that  corresponds  to  the  unit  desirea.   Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D) ,  you  will  next  be  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  irclude  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  option  "E"  (i.e.,  BATTAIICN)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  net  be  asked  to  select  a  subunit. 

4.  The  KCS  ROSTER  REECRT  groups  by  primary  racs  and 
displays  in  alphabetic  order  the  NAME.  RANK,  PRIMARY  MOS 
AND  SECCNDAEY  MOS  of  all  members  in  the  unit  cr  subunit. 

5.  At  the  end  of  the  report  press  the  enter  key  to  return 
to  the  STANIARD  REPORT  MENU. 

ENDTE2T 

CASE  !  (EELPCPT)  =  «I« 
TEXT 

OPTION  I. ..PERSONAL  DATA  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desirea.   Ent<=>r 
the  letter  by  pressing  the  enter  key. 

2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  irclude  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OE  UNIT)  . 

3.  If  cpticn  "E"  (i.e.,  BATTAIION)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  net  be  asked  to  select  a  subunit. 

4.  The  PERSONAL  DATA  ESPORT  displays  for  each  member  of 
the  unit  or  subunit  all  personal  data  including  NAME,  S5N, 
RANK,  PRIMARY/SECONDARY  MOS,  UNIT/SUBUNIT  NAME,  JOIN  DATE, 
EAS,  EIRTHEATE,  EEIGBI,  WEIGHT  and  a  one  character  comment 
block.  If  the  comment  block  is  "T"  (true),  a  comment  is 
contained  on  the  individual  concerned  in  the  comment  file. 
The  screen  will  scroll  upon  pressing  the  enter  key. 

5.  At  the  end  of  the  report  press  the  enter  key  to  return 
to  the  STANEARD  EEPOFT  MENU. 

ENDTEJI 


CASE  !  (EELPCPT)  =  'J1 
TEXT 

CPTICN  J... EST  STATUS  REPORT 
1. 
let 
the  letter  by  pressing  the  enter  key 


At  the  cursor,  next  to  "select  ODtion  ====>",  type  the 
er  (A-E)  that  corresponds  to  the' unit  desired.   Enter 
letter  by  pressing  the  enter  key. 

2.   If  a  cempany  was  selected  (A-D) ,  you  will  next  be  asked 
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to  select  a  subunit.   Enter  the  appropriate  letter.   If  vcu 
want  ths  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  cpticn  "E"  (i.e.,  BATTAIICN)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  reoort  and 
will  ret  be  asked  to  select  a  subunit. 

4.  lie  ESI  STATUS  REI-QRT  includes  the  percent  and  total 
number  of  unit  or  sutunit  members  that  have  completed  each 
ESSENTIA!  SUBJECT  and  the  PET. 

5.  At  the  end  of  the  report  press  the  enter  key  to  return 
to  the  STANEARD  REPORT  MENU. 

FNDTE2T 

CASE  !  (EELPCPT)  =  'K» 
TEXT 

OPTION  K...EST  FOSTER  REPORT 

1.  At  the  cursor,  next  to  "select,  option  ====>'»   type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.   Enter 
the  letter  by  pressing  trie  enter  key. 

2.  If  a  company  was  selected  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  vcu 
want  the  report  to  include  the  en-ire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  opticn  "E"  (i.e.,  BATTAIICN)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 

4.  The  EST  ROSTER  REF-ORT  displays  for  each  member  of  the 
unit  or  subunit  ail  cf  his  esstential  subject  training  and 
FFT  results  for  the  current  year.   A  "*"  character 
indicates  an  element  that  has  not  been  completed.   The 
screen  will  scroll  upen  pressing  the  enter  key. 

5.  At  the  end  cf  the  report  press  the  enter  key  to  return 
to  the  STANEARD  REPOET  MENU. 

FNDTEXT 

CASE  !  (EELPCPT)  =  'L» 
TEXT 

CPTION  L...SWIM  QUALIFICATION  REPORT 

1.  At  the  cursor,  next  to  "select  option  ====>",  type  the 
letter  (A-E)  that  corresponds  to  the  unit  desired.   Enter 
the  letter  by  pressing  the  enter  key. 

2.  If  a  cempany  was  selected  (A-D)  ,  you  will  next  be  asked 
to  select  a  subunit.   Enter  the  appropriate  letter.   If  ycu 
want  the  report  to  include  the  entire  unit  selected,  enter 
"E"  (i.e.,  ALL  OF  UNIT)  . 

3.  If  option  "E"  (i.e.,  BATTALION)  was  selected  in  the 
select  unit  option,  ycu  will  gc  directly  to  the  report  and 
will  ret  be  asked  to  select  a  subunit. 

U.  The  SHIM  QUALIFICATION  FEFCRT  displays  in  alDhabetic 
crder  for  each  member  cf  the  unit  or  subunit  NAME,  BANK, 
UNIT  and  CURRENT  SWIM  QUAL  RESULTS. 


At  the  end  of  the  report  a  SUMMARY  DATA  TABLE  is 
layec  which  shows  the  number  or  unit  or  subunit  mem 
,  have  qualified  in  each  category  (S1,  S2,  S3,  UNQ)  . 


6.   Press  the  enter  key  to  return  to  the  STANDARD  REPORT 

MENU. 

FNDTEXT 
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INDCASE 
a    23  ,  C 

ACCEPT    "PRESS 
ENDCASE 
EETUBN 


•ENTER1    TO    CONTINUE"    TO    PROCEED 
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APPEJDIX    H 

MAIBTE3ANCE    MODULE    LISTING 


1.       MAINTAIN   CONTROL    BOUTISE 

*  Routine   Name:    Maintain. Prg 

*  Module   Name:    Maintenance    Module 

*  Version:    6.0 

*  Author:    E.P.    Haeusler 

*  Date:    30    Nov    83 

*  Variables   Used:    mdcne. mnt ncpt 

*  Variables    Modified:   maone  ,    mntnopt 

*  Variables   Created:    ndone,    mntnopt 

*  Variables   Released:   mdone  ,    mntnopt 

*  Files    (opened/ clos€c)  :    none 

*  Temporary   Files  Created:    none 

*  Using    Subroutines:    Cmddet 

*  Description:    This    routine    produces    a   module   which    gives 

*  the   user    the    option   of  which    maintenace    function   tc 

*  activate.      Each   function    has   an   authorization    level 

*  associated  with   and   enly    appropriate   users    may   activate 

*  certair.    modules. 

STORE  f  TO  AAdone 

DO  WHILE  .NCT.  AAdone 

EFASE 

a    4,29    SAY    "MAINTENANCE    MODULE    MENU" 

5)    6,2a    SIX    "SELECT    ONE   OF    THE    FOLLOWING    OPTIONS" 

a)    6,31    SAY    "V...VIEW    INDIVIDUAL    DATA" 

a)    9,21    SAY    "U... UPDATE    DATA" 

5)     10,31     SAY    "C.  ..CFEATE    AN    ITR" 

3     11,2  1    SAY    "D.  ..DELETE    AN    ITR" 

5)     12,31     SAY    "S.  ..SYSTEM    FUNCTIONS" 

a     13,21    SAY    "H..  .  EELP" 

a     14,29    SAY    "*    Q.  ..QUIT    *" 

a     15,0    SAY       "    " 

ACCEPT    "  SELECT    CPTION    ===>"    TO    mntnopt 

DC    CASE 

CASE    !  (mntnopt)    =    «V« 

DO   viewitr 
CASE    !  (mntnopt)    =    »U» 
IF   AAlevel    <   3 

DO    updtitr 
ELSE 

ERASE 

a    8,31     SAY    "ACCESS    UNAUTHORIZED" 
DO    pause 
ENDIF 
CASE    !  (mntnopt)    =    'C* 
IF    AAlevel    <   3 
DO    creatitr 
ELSE 

ERASE 

a    8,31     SAY    "ACCESS    UNAUTHORIZED" 
DO    pause 
ENDIF 
CASE    !  (mntnopt)    =    'D« 
IF    AAlevel    =    1 
DO    deletitr 
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ELSE 

ERASE 

a)    8,31     SAY    "ACCESS    UNAUTHORIZED" 
DO    pause 
ENDIF 
CASE    !(mntr.opt)    =    ,SI 
IF    AAlevel    =    1 

DO    systeir 
ELSE 

ERAS  E 

5)    3,31     SAY    "ACCESS    UNAUTHORIZED" 
DO    pause 
ENEIF 
CASE    !  (mntnopt)    =    fH» 
STORE    2    TO    EELPOPT 
DC    B:HELP2 
CASE    !  (mntnopt)    =    «Q» 
SICRE    t   TO    AAdone 
ERASE 
ENECASE 
ENDDO 

RELEASE    nntnopt,    HELICPT 
RELEASE    AAECNE 
RETURN 
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E.       *IES    CCHTROL    ROUTIBE 

*  Routine    Name:    Viewitr.prg 

*  Module   Name:    Maintenance    Module 

*  Version:    6.1.0 

*  Author:    E.P.    Haeusl€r 

*  Date:    1    Dec   83 

*  Variatles   Used:    vdcre,   vfinish,    vname,    vcomp,    vagain, 

*  vssn,    vend,    view 

*  Variables    Modified:   same    as   above 

*  Variatles   Created:    same  as   atcve 

*  Variatles   Released:   all   like   v??????? 

*  Files    (opened/ clos€d) :    a: pers (opened/closed) 

*  Temporary  Files  Created:    none 

*  Using    Subroutines:    maintain. prgc    stdrpz.prg 

*  Description: This    routine    controls   the   creation    of   the 

*  ITR    for    viewing  only.      It    does   not   allow    any  changes   to 

*  data. 

STORE    F    TC    VNOFIND 
STORE    F    TC    VDONE 

DO    WHILE    -NCT.     VDONE 

STCRE    F    TO    VFINISE 

DC    WHILE    .NOT.    VFIKISH    .AND.     .NOT.    VDONE 
IB  USE 

a)    8,3  1    SAY    "TO    LOCATE    AN    ITR" 
3    9,31   SAY    "ENIER    NAME     (LAST,    FIRST    MI.)" 
ACCEPT    "  NAME    ===>"    TO    VNAME 

STCRE    MVNAME)     TO    VNAME 
QSE    A.-PERS    INDEX    A:ALEHFEES 
FINE    GVNAME 

IF    #    =   0 

ERASE 

3    8.31     SAY    "   INDIVIDUAL    IS    NOT    IN    THE    DATA    EASE" 

STCRE    F   TO    VCOMP 

DO    WHILE       -NCT.    VCCMP 

ACCEPT    "EO    YOU     &ANI    TO    TRY    AGAIN     (Y/N)  "     ; 

TO    VAGAIK 

STORE    !  (VAGAIN)     TO    VAGAIN 

DO    CASE 

CASE    VAGAIN     =    'N' 
STCFE    T   TC    VECNE 
STORE    T   TC    VCOMP 
STCEE    T   TC    FINISH 
CASE    VAGAIN     =    ■ Y« 
STCRE    T   TC    VCCMP 
STCRE    T    TO    VNOFIND 
EN  DC  AS  E 
EN  EDO 
EL  CE 

"STCRE    SSN    TO    AASSN 
STCRE    CCMMEKT    TO   STCCPMNT 
OSE 


STCRE    F    TO    VEND 

DO 

WHILE    .NCT. 

VEND 

STORE   T    TC 

VEND 

DO    ITRSCRN 

DO    GETDATA 

2-    24,24    SAY 

ii** 

SET    CONSCLE 

OFF 

WAIT 

SET    CONSCIE 

ON 

STORE    F    TC 

VIEW 

PRESS    ANY    KEY    TO    CONTINUE    **" 
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IF    STCOMEKT 

STORE    E    TO    VCOME 
DC    WHIIE    .NOT. VCOMP 

ACCEPT    "     DO    YOU    WANT    TO    VIEW    COMMENTS 
(Y/N)?"    TC    VAGAIN 

DO    CASE 

CASE    !    (VAGAIN)     =    «  N' 
STORE    T    TO    VCOMP 
STOFE    F    TO    VIEW 
STORE    1    TO    VFINISH 
STOFE    T    TO    VDONE 
CASE    i  (VAGAIN)     =    »Y» 
STOaE    T    TC    VCOMP 
STORE    I    TO    VIEW 
ENICASE 
ENDDO 
IF    VIEK 

DO    GETCMMNT 
ENDIF 
ENDIF 
5)    2  4,0 

STORE   T    TC    VFINISH 
STORE    F    TC    VCOME 
DO    WHILE    .NOT.     VCOMP    .AND.     VIEW 

ACCEPT    "    DO    YOU    WANT    TO    VIEW    ITR    AGAIN; 
(Y/N)  ?"    TC    VAGAIN 

DC   CASE 

CASE    !  (VAGAIN)     =    ■  Y« 
STORE    T    TC    VCOMP 
STORE    F    TO    VEND 
CASE    !  (VAGAIN)     =    'N' 
STORE    T    TO    VCOMP 
STORE    T    TC    VEND 
ENDCASE 
ENDDO 
ENEDO 
ENEIF 
ENEEO 
EFASE 

STCFE    F    TO    VCOMP 

DC    fcHILE    .NOT.    VCCF.E    .ANE.     .NOT.     VNOFIND 
a)     11,24    SAY    "    TC    VIEW    ANCTHER    ITR" 
ACCEPT    "  ENTER     (Y/N)     ===>"; 

TO    VAGAIN 
EC    CASE 

CASE  !  (VAGAIN)  =  •  Y» 

STORE  T  TC  VCOME 
CASE  !  (VAGAIN)  =  «  N» 
STORE  T  TC  VCOME 
STORE  T  TC  VDONE 
ENECASE 
ENEDO 
ENDDC 

EELEASE  ALL  EXCEPT  AA?????? 
RETUBK 
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I1F    SCBEEH    FORMAT    EOUTIBE 


*  Routine   Name:    Itrscrn.prg 

*  Moduls   Name:    Maintenance    Module 

*  Version:    6.1 .0.1 

*  Author:    E.P.    Haeusler 

*  Date:     1    EEC   83 

*  Variables    Used:NONE 

*  Variables   Mo dified :NONE 

*  Variables   Created: KCNE 

*  Variables   Released :NONE 

*  Files    (opened/closed)  :    NONE 

*  Temporary   Files   Created;    NONE 

*  Using    Su5rcutir.es:    Viewitr,    Creatitrr    Updritr, 

*  Description:    This    icutine    formats   the    screen  m 

*  representation  of    an   ITR. 

ERASE 


Delei 
the 


0 
1 
1 
1 
1 
2 
2 
3 
3 
3 
3 
3 
U 
4 
4 
4 
5 
5 
5 
5 
6 
6 
7 
7 
8 
8 
9 

?i 

11 
11 
12 


16 
17 
17 

18 
18 
19 
19 


25    SAY 
8    SAY    " 
46    SAY 
57    SAY 
66    SAY 
8    SAY    " 
40    SAY 
8    SAY    u 
18    SAY 
33    SAY 
46    SAY 
56    SAY 
8    SAY    " 
4C    SAY 
5  5    SAY 
61    SAY 
8    SAY    " 
4C    SAY 
5  5    SAY 
61    SAY 
8    SAY    " 
4C    SAY 
8    SAY    " 
4C    SAY 
8    SAY    " 
4C    SAY 
8    SAY    " 
4C    SAY 
8    SAY 

24  SAY 
40  SAY 
8  SAY 

25  SAY 
31  SAY 
49  SAY 
8  SAY 
25  SAY 
31  SAY 
49  SAY 
8  SAY 
40  SAY 
6  SAY 
40  SAY 
8  SAY 
40  SAY 
8  SAY 
4C  SAY 
8  SAY 
40  SAY 


"IN  CI 
i>'AME: 
"GRAD 
"MOS: 
n  /•  it 

EIRTH 
"SSN. 
CO:  » 
"PLAT 
"  JOI  N 
"EAS." 
"GAS 
MIL    C 
"PFT1 
ii /.  ii 

"DATE 

HISTO 

"PFT2 
ii  /.  it 

"DATE 
ERILL 
"NBC. 
INTER 
"MARK 
EIBST 
"INDI 
EQUIP 
"ME  AS 
"SWIM 
"DAT 
"WEI 

"RIFL 
ii  •  .  ii 

"DAT 

"WEI 

"PI  ST 

ii  /  •  ii 

"DAT 

"HEI 
"ELEC 

"DRU 
"CLD 

"ALC 
"LAW 

"HUM 
"TRAI 

"PER 
"LEAD 

"UCM 


VIDUA!    TRAINING    RECORD" 
ii 

E:" 
ii 


DATE :" 


•  ii 

r  ii 

• 

: " 

KASK 

ODE 


CF    CONDUCT:" 
*  it 


RY    O 


F    MARCOR..  :" 
•  ii 


ii 


IO  R 
SMAN 
AID 
VI DU 

z  u 

URES 
QUA 
E:  " 
GHT 
E   QU 

E:" 
GHT. 
OL    Q 

E:  " 
GHT. 
IRON 
G  AE 
WEAT 
CHOL 
OF  W 
AN  R 
NING 
SONA 
ERSH 
J.  .  . 


GUARD :»' 

CUT  p  .11 

.  ii 

ai'tacticai" 

NIFORM.  ...:" 
•  ii 

T    "  •  H  " 

Jj  •  •  •  • 

CCNTROL :" 

A  I.  .  :" 


•  it 

UAL. :" 


IC  WARFARE..  :" 

USE :  " 

HER :" 

ABUSE :» 

A  R :  " 

EIATIONS..  .:" 

EOS :" 

I  AFFAIRS.  .  :" 
IP :" 


190 


3    20  ,€    SM    "CHAR   &    MCBAL    ED 
2    21  ,6    SAY    "CMMENTS.  :" 

SETUBN 
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E.       SCREEN    EATA    RETR3EVALR0UTINE 

*  Routine   Name:    Getdata.prg 

*  Module    Name:     Maintenance    Module 

*  Version:    6. 1. 0.2 

*  Author:    D.   P.    Haeueler 

*  Date:    1    Dec  83 

*  Variables   Used:    vssn 

*  Variables   Modified:   NONE 

*  Variables   Created:    NONE 

*  Variables   Released  :K0NE 

*  Files    (opened/ closed) :    a: pers (opened/closed) , 

*  b:  est  (oDened/closed)  , 

*  b: gual (opened/closed) 

*  b:  mfcmisc  (opened/closed) 

*  Temporary   Files  Created:NCNE 

*  Using    Subroutines: Viewitr ,    Ucdtitr,    Deleritr 

*  Description:    This    routine    retrieves   the   information 

*  stored    in   the    data    base   fcr   the   individual    specified    by 

*  vssn.      It   then  arranges  it   in   the   screen    format    created 

*  by    Itrscrn.prg. 

STORE    AASSN    TO    VSSN 

USE    A:I-EES    INDEX    A:PEESSN 

FIND    SVSSN 

2    1,  12  SAY  SAME 

9    1,52  SAY  BANK 

2  1r6  1  SAY  ERIMEMOS 

3  1,68  SAY  SECMOS 

3    2,23    SAY  ERTHDATE 

3    2, US    SAY  SSN 

2  3,11  SAY  COMPANY 
a    3,23    SAY  ILATOON 

a    3,3  8    SAY    JOIN  DATE 

3  3,51    SAY    EAS 

a  3.  69  SAY  GASMASK 
a  11,59  SAY  HTCONT 
a  12,59  SAY  WEIGHT 
3  13,59  SAY  HEIGHT 
3    21,  17    SAY    COMMENT 

CSE    B:ES1    INDEX    E:ES1SSN 
EIND    eVSSN 


a  4 

3  4 

3  4 

a  4 

a  5 

3  5 

a  5 

a  5 

3  6 

3  6 

3  7 

3  7 

3  8 

3  9 

3  9 


28  SAY  COC 

5  1  SAY  FFT1RAW 

57  SAY  EFT1CLSS 

66  SAY  PFT1DATE 

26  SAY  HIS 

51  SAY  FET2RAW 

57  SAY  PFT2CISS 

66  SAY  PFT2DATE 

28  SAY  COD 

48  SAY  SEC 

2e  SAY  INT 

5  9  SAY  MKS 

28  SAY  AID 

28  SAY  UNI 

59  SAY  IAC 


USE    E:QUAL    INDEX    B:QUALSSN 
FIND    SVSSK 

3    1 1,20  SAY    SWIMCUAL 

3    1  1 ,29  SAY    SWIMDATS 

3    12,21  SAY    RFLSCORE 

3    12,27  SAY    RFLQOAL 
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12,36 
13,21 
13,27 
13,36 


SAY 
SAY 
SAY 

saY 


RFLDATE 
PSTSCORE 
PSTQDAL 
PSTDATE 


CSE    B:INFCMISC    INDEX    ErINFOSSN 
FIND    SVSSK 


15 
15 
16 
16 
17 
17 
13 
18 
19 
19 
20 


29 
59 
29 
59 
29 
59 
29 
59 
29 
59 
29 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


ELECWAR 

DRUG 

CLDWTHR 

ALCOROL 

LAW  WAR 

HUM  R  EL 

MOS 

PERSAFFR 

LDRSHP 

DCMJ 

CHBMCRED 


USE 
BETOEN 
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E.       CCMMEN1    RETRIEVAI    ROUTIHE 

*  Routine   Name:    Getcimnt . pr  g 

*  Module    Name:    Maintenance    Module 

*  Version:    6. 1. 1 

*  Author:    D.P.    Kaeusler 

*  Date:     10    Jan    84 

*  Variables   Used:    none 

*  Variables   Modified:    none 

*  Variables   Created:    none 

*  Variables   Released:    none 

*  Files    (opened/closed):    a:  cmmnt  (o/c) 

*  Temporary   Files  Cr€ated:    none 

*  Using   Subroutines:    Viewitr.prg 

*  Description:    This    routine    displays   the   conten-s    of   the 

*  comments    data    base    file. 

ERASE 

2    5,33    SU    "COMMENT    SECTION" 

CSE    A:CMMNT    INDEX    A:CKMNTSSN 

FIND    SAASSN 

2    8,2    SA1    INFOTXT1 

9    8,5  1    SJY    INFOTXT2 

2  9,2    SAY    INFOTXT3 

3  9,5  1    SAY    INFOTXT4 
2    10,2    SAY    INFOTXT5 

2    10,51    SAY    INFOTXT6 
2    11,2    SAY    INFOTXT7 
2    11,51    SAY    INFOTXT8 
2    12  #  2    SAY    INFOTXT9 
2    12,51    SAY    INFOTXT0 
DSE 
FETUS  N 
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F.       UPDATE    CONTBCL    RCUTIHE 

*  Routine   Name:    Dpdtitr.prg 

*  Module    Nacre:    Maintenance    Module 

*  Version:    6.2. 0 

*  Author:    D.P.    Haeusler 

*  Date:  2  D€c  83 

*  Variables  Used:  aaadone,  upr.ame,  upcomp,  up  again ,  aassn 

*  Variables  Modified:  aaadone,  upname,  upcomp,  uDagair, 

*  aassn 

*  Variables  Created:  aaadone,  upname,  upcomp,  upagain, 

*  aassn 

*  Variables   Released:   all   like   up??????,    aassn,    aaadone 

*  aathru ,    aaccrr 

*  Files    (opened/closed):   a:pers    (OPENED/CLOSED) 

*  Temporary   Files   Created;     NONE 

*  Usirg    Subroutines:    Maintain. prg 

*  Description:    This    routine    finds   the    ITR   to    be  uodated 

*  and    controls    the    update  routines. 

STORE    F    10    AAADONE 

EO    WHILE    .NOT.     AAADONE 
ERASE 

9    8,2a    SAY    "WHICH    1TP    IS    TO    BE" 
3    S.23    SAY    "UEDATIE    OR   CORRECTED?" 
3     10,23    SAY    "NAME     (LAST,     FIRST    MI.)" 
ACCEPT    "  NAME    =-=>"    TO    UPNAHE 

STORE    !  (CPNAME)     TC   UPNAHE 
USE    A:FEES    INDEX    a:AL?HPERS 
FIND    SOP  SAME 

IE    #    =    0  . 

ERASE 

3    8,24   SAY    "INEVIDUAL    IS    NOT    IN    THE    DATA    BASE" 

9  S,23    SAY    "OR    YOU   HAVE    ENTERED    AN    INCORRECT    NAME" 

STCRE    F   TO    UPCOMP 

DC    WHILE     .NOT.     DECOMP 

ACCEPT    "  DO     ¥00    WANT    TO    TRY    AGAIN     (Y/N)?"; 

TC    UP  AGAIN 
CO    CASE 

CASE       !  (OEAGAIN)    =    'Y' 
STORE    I    TO    UECCMP 

CASE  !  (UEAGAIN)  =  'N» 

STORE  I  TO  U  ECO  MP 
SIORE  T  TO  AAADCNE 
ENECASE 
ENDDO 
ELCE 

~SICEE  SSN  TO  AASSN 
OSI 
DC  ITESCRN 

10  GEIDATA 
DC    UPEATA 

STCRE    F   TO    UPCOMP 
DC    WHILE     .NOT.     DECOMP 
ER  ASE 

ACCEPT    "    DO    SOU    WANT    TO    UPDATE    ANOTHER    ITR; 
(Y/N)  ?"      TC   UPAGAIN 
DO    CASE 

CASE   !(0EAGAIN)  =  'Y1 

STORE  T  TO  UECCMP 
CASE  !  (UEAGAIN)  =  'N« 
STORE  T  TO  UECOSP 
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STORE    1    TO    AAADONE 
ENDCASE 
INEDO 
ENEIF 
ENDDC 

RELEASE    ALL    EXCEPT    Air????? 
ESLEASI    flASSN,     AATHRU,    AACOER,    AAADONE 

BETUBN 
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G.       DATA    OPIATE    ROUT1BE 


*  Routine   Name:    Updata.prg 

*  Hcdule   Name:     Maintenance    Module 

*  Version:    6.2. 0 .1 

*  Author:  D.  P.  Haeusler 

*  Date:  8  Dec  83 


*  Variables   Used:    aathru,    aacorr,    upopt,    inname,    inrank, 

*  upccrmos,    inpnme,    msec,    irbrth,    inssn, 

*  errcpt,    mccmp,    inplat,    injndate,    ineas, 

*  ingas,   incode.    inprtl.    calccpt,    wthru, 

*  wdate,    inpftdt.1.    mpftd-2c    inswdt, 

*  inrfldt,    mpstdt,    inhis,    inpft2,    mdrill 

*  inrsbc,   mint,    inmks,    inaid,    inuni, 

*  intac,    inswgu.    inrflsc,    inweight, 

*  inpstsc,    inhght,    inelec,    indrug, 

*  incldwtr, inalch,    inlaw,    inhum,    macs, 

*  inpersaf,    inldr,    inucmj,    inchrmor, 

*  inccmmnt 

*  Variables   Modified:   same    as   above 

*  Variables   Created:    same  as   above 

*  Variables    Released:   all   like    in?????? 

*  Files    (opened/closed):    a:pers    (opened/closed) 

*  b: gual    (opened/closed) 

*  b:est    (ooened/closed) 

*  b: inf cmisc    (opened/closed) 

*  Temporary   Files  Created:    none 

*  Using    Subroutines:    updtitr.prg 

*  Description:    This    routine    prompts   the    user   to  cheese    a 

*  specific   field   of    the   ITR    to   update.      It   then   locates 

*  tnat    field  in    the    data  base   and   replaces   the  old   data 

*  with    rew    data.      It    also   calls   error   checking  routines 

*  and    a    calculate   function. 

STORE    P    TO    AATHRO 

CO    WHILE     .NCT.     AATHRU 
STCRE    F    TO    AACORR 
DC    WHILE    .NOT.    AACCRR 

RELEASE    ALL    LIKE    IN?????? 

STCRE    "  "    TO    UPOPT 

a    22,0 
a    23,0 
a)    2' 
TO    QCIT." 

a)    23,1    SAY    "    OPTION    =  ==>"    GET    UPOPT    PICTURE    "XXXXXX; 
XXXX XXX* XXX XXXX XXX XXXXXX" 
READ 

STCRE    ! (UPCPT)     TC    UPOPT 
EO    CASE 

CASE    UPCPT    =    •NAME' 
STORE    T    TC    AACORR 

USE    A:PSES    INDEX    A:PERSSN,    A:ALPHPERS 
FIND    &AASSN 
STORE    NA*E    TO       INNAME 

a)    1,12    GET    INNAME    PICTURE    » XXXXXXXXXXXXXXXXXX ; 
XXXXX52XXXXXX" 

READ 

REPLACE    SAME    WITH    !  (INNAME) 

USE 

CASE    UPCPT    =    'GRADE* 
STORE   T    TC    AACORR 
USE     A:PSFS    INDEX    A:PERSSN 
FIND   &AASSN 
STORE    RAM    TO       INRANK 
a)    1,51     GET    INRANK    PICTURE    "XX" 


22' 1    SAY    "    OPTION:     EIELD    TO    BE    CHANGED    OR    •  Q  •  ; 
11 


rea5 
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STORE    1     1C    ERROFT 

DO    E  RRO  R 

REPLACE    RANK    WITH    !  (INRANK) 

OSS 

CASE    UPOPT    =    ■MOS1 
STORE    T    TC    AACORR 
a    23,0 
3>    24,0 

STORE    F    10    UPCORMOS 
DO    WHILE    .NOT.     UPCORMOS 

S    23,1    SAY    "    PRIMARY    OR    SECONDARY?" 
ACCEPT    "ENTER    P    OR    S    ====>"    TO    UPAGAIN 
DO    CASE 

CASE    !  (UPAGAIN)     =    •  P« 
STORE     I    TO    UPCORMOS 

OSE    A:PERS    INDEX    ArPERSSN    ,     AtMCSNEX 
FIND    SAASSN 

STORE    PRIMEMOS    TO    INPRIME 
5    1,60    GET    INPRIME    PICTURE    "9999" 
BEAD 

BEPLACE    PRIMEMOS    WITH    ! (INPRIME) 
OSE 

CASE    !  (UPAGAIN)     =    •  5* 
STORE    T    TC    UPCORMOS 
OSE    A:FERS    INDEX    A:PERSSN 
FIND    5AASSN 
STORE    SSCMCS    TO    INSEC 
3    1,67    GET    INSEC    PICTURE    "9999" 
BEAD 

BEPLACE    SECMOS    WITH    INSEC 
OSE 
ENDCASE     • 
ENDDO 

CASE    UPOPT    =    'BIRTEDATE' 
STORE    T    TC    AACORR 
USE    A:PEBS    INDEX    A:PERSSN 
FIND    5AASSN 

STORE    BRTEDATE    TO    INBRTH 
S    2,22    GFT    INBRTH    PICTURE    "XXXXXX" 
READ 

STORE    2    TC    ERROPT 
DO    E  BRO  R 

REPLACE    EBTHDATE    WITH    INBRTH 
USE 

CASE    UPOPT    =    'SSN1 
STORE    T    TC    AACOBR 
USE    A:PEBS    INDEX    A:PERSSN 
FIND    &AASSN 
STORE    SSN    TO    INSSN 

3    2,48    GET    INSSN    PICTURE    "999999999" 
READ 

REPLACE    SSN    WITH    INSSN 
US  E 

USE     A:CMKM    INDEX    A:CMMNTSSN 
FIND    &AASSN 

REPLACE    SSN    WITH    INSSN 
USE    E:EST    INDEX    B:ESTSSN 
FIND    &AASSN 

REPLACE    SSN    WITH    INSSN 
USE     E:QUM    INDEX    E:QUALSSN 
FIND    &AASSN 

REPLACE    SSN    WITH    INSSN 
USE    E:INFCMISC    INDEX    B:  INFOSSN 
FIND    &AASSN 
REPLACE    SSN    WITH    INSSN 
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STORE    INSSN    TO    AASSN 
USE 

CASE    UPCPT    =    'CO* 

STORE   T    TC    AACORR 

USE     A:PEES    INDEX    A:FERSSN 

FIND    SAASSN 

STORE    COMPANY   TC    INCCMP 

3    3£  10    GET    INCOMP    PICTURE    "XXXXXX" 

READ 

REPLACE    CCMPANY     WITH    ! (INCOMP) 

USE 

CASE    UPOPT    =    'PLAT1 
STORE   T    TC    AACOBR 
USE    A:PESS    INDEX    A:PERSSN 
FIND    SAASSN 
STORE    PLAT    TO    INPLAT 

3    3,22    GET    INPLAT    PICTURE    "XXXXXXXXX" 
READ 

REPLACE    IIATOON    WITH    l(INPLAT) 
USE 

CASE    UPCPT    =    'JOIN1 
STORE    T    TC    AACORR 
USE    A:PEES    INDEX    A:PERSSN 
FIND   SAASSN 

STORE    JOIKDATE    TO    INJNDATE 
5)    3,37    GET    INJNDATE    PICTURE    "XXXXXX" 
READ 

STORE    3    TC    ERROPT 
DO    ERROR 

REPLACE    JCINDATE    WITH    INJNDATE 
USE 

CASE    UPOPT    =    'EAS1 
STORE    T    TC    AACORR 
USE    ArPEES    INDEX    A:PERSSN 
FIND    SAASSN 
STORE    EAS    TO    INEAS 

5)    3,50    GET    INEAS    PICTURE    "XXXXXX" 
READ 

REPLACE    EAS    KITH    INEAS 
USE 

CASE    UPOPT    =    «GAS     KASK» 
STORE    T    TC    AACORR 
USE     A:PSES    INDEX    A:PERSSN 
FIND   SAASSN 

STORE    GASKASK   TC    INGAS 
a)    3,68    GET    INGAS    PICTURE    "X" 
READ 

STORE    4    TC    ERROPT 
DO    EEROR 

REPLACE    GASMASK     WITH    ! (INGAS) 
USE 

CASE    UPOPT     =    'MIL    CODE    OF    CONDUCT* 
STORE    T    TC    AACOER 
USE    B:EST    INDEX    B:ESISSN 
FIND    SAASSN 
STORE    COC    TO    INCODE 
a    4,27    GET    INCOEE    PICTURE    "XXX" 
READ 

REPLACE    CCC    WITH    !  (INCODE) 
USE 

CASE    UPCPT    =    «PFT1  ' 
STORE   T    TC    AACORR 
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USE    B:ESI    INDEX    E:ESTSSN 

FIND   SAASSN 

STORE  PFT1RAW  TC  INFFT1 

5)  4,50  Gil  INPP11  PICTURE  "999" 

READ 

STORE    5    TC    ERROPT 

DO    EEROR 

REPLACE    FET1RAW    WITH    INPFT1 

USE 

STORE    1    TC    CALCCPT 

DO    CALCUIfiT 

CASE    UPOPT    =    'DATE1 
STORE    F    TC    WTHRU 
STORE   T    TC    AACORR 
EO    WHILE    .SOT.    WTHBU 
3     23,  0 
a)    24,0 

S  23,1  SAY  "  A..PFT1,  B..PFT2,  C..SWIM,; 
D. .RIFLE,  E.. PISTOL" 

ACCEPT  "WHICH  DATE  IS  TO  BE  ENTERED  ===>  "; 

TO  WDATE 

STORE     !  (WDATE)     TO    WDATE 

DO    CASE 

CASE    WDATE    =    «A» 

STORE   T    TO    WTHRU 

CSE    B:EST    INDEX    B:EST5SN 

EIND    SAfiSSS 

STORE    PFT1DATE    TO    INPFTDT1 

3    4,65     GET    INPFTDT1     PICTURE    "XXXXXX" 

BEAD 

STORE    6    TC    ERROPT 

EC    ERROR 

EEPLACE    PFT1DATE    WITH    INPFTDT1 

DSE 

CASE    WDATE    =     'B' 

STORE    T    TO    WTHRU 

CSE    B:EST    INDEX    B:ESTSSN 

EIND    8AASSN 

STCRE  PET2EATE  TO  INPFTDT2 

a  5,65  GET  INPFTDT2  PICTURE  "XXXXXX" 

EEAD 

STORE  8  TO  ERROPT 

EC  ERROR 

EEPLACE  PFI2DATE  WITH  INPFTDT2 

CSE 

CASE  WDATE  =  'C* 

STORE  T  TC  WTHRU 

CSE  B:Q0AL  INDEX  B:QUALSSN 

EIND  &AASSN 

STORE    SWIMDATE    TO    INSWDT 

2    11,28    GET    INSWDT    PICTURE    "XXXXXX" 

EEAD 

STORE  1 0  TC  ERROPT 

EC  ERROR 

EEPLACE    SWIMDATE    WITH    INSWDT 

CSE 

CASE    WDATE    =     'D« 

STORE    T    TO    WTHRU 

CSE    E:QUAL    INDEX    B:QUALSSN 

EIND    &AASSN 

STCRE    RFLCATE    TO    INRFLDT 

a    12,35    GEI    INRFLDT    PICTURE    "XXXXXX" 

EEAD 

SIORE  1 2  TO  ERROPT 

EC  ERROE 
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REPLACE  RFLDATE  WITH  INRFLDT 
USE 

CASJ    WDATE    =    »E« 

STORE   T    TC    WTHRU 
CSE    3:QUAL    INDEX    BcQUALSSN 
FIND    SAASSN 

SIOEE    PSTDATE    TO    INPSTDT 
2    13,35    GET    INPSTDT    PICTURE    "XXXXXX" 
RFAD 

STORE    1 5    TC    ERROPT 
EC    ERROR 

REPLACE    FSTDATE    WITH    INPSTDT 
CSE 
ENECASE 
FNDDO 

CASE    UPCPT    =    «HISTCRY    CF    MARCOR' 
STORE   T    TC    AACORR 
USE    B:EST    INDEX    E:ESTSSN 
FIND    SAASSN 
STORE    HIS    TO   INHIS 
a)    5,27    GET    INHIS    PICTURE    "XXX" 
READ 

REPLACE    HIS    WITH    INHIS 
USE 

CASE    UPOPT    =    »PFT2» 
STORE    T    TC    AACOER 
USE    E:EST    INDEX    B:ESTSSN 
FIND    SAASSN 

STORE    PFT2RAW    TO    INPFT2 
9    5-50    GET    INPFT2    PICTURE    "999" 
READ 
•      STORE   7    TC    ERROFT 
DO    ERROR 

REPLACE    EFT2RAW    WITH    INPFT2 
USE 

STORE    2    TC    CALCCPT 
DO    CALCULAT 

CASE    UPCPT    =    'DRILL* 
STORE    T    TC    AACORR 
USE    B:EST    INDEX    B:ESTSSN 
FIND   SAASSN 
STORE      CCE    TO    INDRILL 
9    6,27    GET    INDRILL    PICTURE    "XXX" 
READ 

REPLACE    COD    WITH    INDRILL 
USE 

CASE   UPOPT    =    »NBC« 
STORE    T    TC    AACORR 
USE    E:EST    INDEX    B:ESTSSN 
FIND    SAASSN 
STORE    NBC    TO    IN  NBC 

a)    6,47    GET    INNBC    PICTURE    "XXXXXX" 
READ 

REPLACE    SEC    WITH    INNBC 
USE 

CASE    UPCPT    =    »INTERICF    GUARD1 
STORE    T    TC    AACORR 
USE    B:EST    INDEX    B:E5TSSN 
FIND    SAASSN 
STORE    INT    TO    ININT 
a)    7,27    GET    ININT    PICTURE    "XXX" 
READ 
REPLACE    INT    WITH    ININT 
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USE 

CASE    UPOPT    =    •MARKSMANSHIP' 
STORE    T    TC    AACOBR 
USE    E:EST    INDEX    B:ESTSSN 
FIND    &AASSN 
STORE    MKS    TO    INMKS 

a    7,58    GEI    INMKS    PICTURE    "XXXXXX" 
READ 

REPLACE    BBS    WITH    INMKS 
OSE 

CASE    UPOPT    =    'FIRST    AID' 
STORE    T    10    AACOBR 
USE    B:EST   INDEX    B:ESTSSN 
FIND   &AASSN 
STORE    AID    TO   INAID 

3    8-27    GEI    INAID    PICTURE    " XXXXXXXXXXX" 
READ 

REPLACE    AID    WITH    INAID 
USE 

CASE    UPOPT    =    'EQUIP    &    UNIFORM' 
STORE    T    TC    AACOBR 
USE    E:ESI    INDEX    BrESTSSN 
FIND    &AASSN 
STORE    UNI    TO    INUNI 
3    9,27    GET    INUNI    PICTURE    "XXX" 
READ 

REPLACE    DM    WITH    INUNI 
USE 

CASE    UPCPT    =    'INDIVIDUAL    TACTICAL    MEASURES' 
STORE   T    TC    AACOBR 
USE    B:EST    INDEX    B:ESTS5N 
FIND    &AASSN 
STORE    TAC    TO    INTAC 

a)    9,58    GEI    INTAC    PICTURE    "XXXXX" 
READ 

REPLACE    TAC    WITH    INTAC 
USE 

CASE    UPOPT    =    'SWIM    QUAL' 
STORE    T    TC    AACOEB 
USE    E:QUAL    INDEX    B:QUALSSN 
FIND    &AASSN 

STORE    SWIMQUAL    TO    INSWQU 
5)    11,19    GET    INSWQU    PICTURE    "XX" 
READ 

STORE      9    TC    ERRCPT 
DO    ERROR 

REPLACE    StilMQUAI    WITH    INSWQU 
USE 

CASE    UPOPT    =    'RIFLE    QOAL' 
STORE    T    TC    AACORR 
USE    B:QUAI    INDEX    BrQUALSSN 
FIND    SAASSN 

STORE    RFISCOBE    TO    INRFLSC 
3    12,20    GET    INRFLSC    PICTURE    "999" 
READ 

STORE    11    TO    ERROPT 
DO    EEROR 

REPLACE    BELSCORE    WITH    INRFLSC 
USE 

STORE    3    TC    CALCCPT 
DO    CALCUIAT 

CASE    UPOPT    =    'WEIGHT' 

202 


STORE    T    TC    AACORR 

USE    A:PEFS    INDEX    A:PER5SN 

FIND    SAASSN 

STORE    WEIGHT    TO     INWEIGHT 

3    12,58    GET    INWEIGHT    PICTURE    "999" 

READ 

STORE    13    10    ERRCPT 

DO    ERROR 

REPLACE    WEIGHT     WITH    INWEIGHT 

USE 

STORE    5     1C    CALCCPT 

DO    CALCULST 

CASE    UPOPT    =    'PISTCL    C.UAL' 
STORE   T    TC    AACORR 
USE    E:QUAI    INDEX    B:QUALSSN 
FIND   SAASSN 

STORE    PSISCORE    TC    INPSTSC 
3    13r20    GET    INPSTSC    PICTURE    "999" 
READ 

STORE    14    10    ERROPT 
DO    ERROR 

REPLACE    FSTSCORE    WITH    INPSTSC 
USE 

STORE    4    TC    CALCOPT 
DO    CALCUIAT 

CASE    UPOPT    =    ' HEIGHT1 
STORE    T    TC    AACORR 
USE    A:PERS    INDEX    A:PERSSN 
FIND    SAASSN 

STORE    HEIGHT    TO    INHGHT 
a)    13,58    GET    INHGHT    PICTURE    "99" 
READ 

STORE    16    TO    ERRCPT 
DO    ERROR 

REPLACE    EEIGHT    WITH    INHGHT 
USE 

STORE    5    TC    CALCCPT 
DO    CALCUIAT 

CASE    UPCPT    =    'ELECTRONIC    WARFARE' 
STORE   T    TC    AACORR 
USE    B:INFCMISC    INDEX    B:INFOSSN 
FIND    SAASSN 

STORE    EIECWAR   TC    INELEC 
a)    15,28    GET    INELEC    PICTURE    "XXXXXX" 
READ 

REPLACE    EIECWAR    WITH    INELEC 
USE 

CASE    UPOPT    =    'DRUG    ABOSE' 
STORE    T    TC    AACORR 
USE    E:INFCMISC    INDEX    B:  INFOSSN 
FIND    SAASSN 
STORE    DRUG    TO    INDRUG 

a)    15,57    GET    INDRUG    PICTURE    "XXXXXX" 
READ 

REPLACE    EFUG    WITH    INDRUG 
USE 

CASE    UPOPT    =    'CLD    WEATHER' 
STORE   T    TC    AACORR 
USE     B:INFCMISC    INDEX    B:INFOSSN 
FIND    SAASSN 

STORE    CICWTHR   TC    INCLDWTR 
a)    16,28    GET    INCLDWTR    PICTURE    "XXXXXX" 
READ 
REPLACE    CLDWTHR     WITH    INCLDWTR 
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OSE 

CASE    UPCPT    =    • ALCOHOL    ABUSE' 
STORE    T    TC    AACOER 
DSE    E:INECMISC     INDEX    B:IN?OSSN 
FIND    &AASSN 

STORE    ALCOHOL   TC    INALCH 
3    16,58    GET    INALCH    PICTURE    "XXXXXX" 
READ 

REPLACE    AICOHOL    WITH    INALCH 
USE 

CASE    UPCPT    =    'LAW    CF    WAR* 
STORE   T    TC    AACORR 
USE    B:INFCMISC    INDEX    B:INFOSSN 
FIND   &AASSN 
STORE    LAWWAR    TO    INIAW 
3    17,28    GET    INLAW    PICTURE    "XXXXXX" 
READ 

REPLACE    LAWWAR     WITH    INLAW 
USE 

CASE    UPOPT    =    'HUMAN    RELATIONS' 
STORE    T    IC    AACOFR 
USE    E:INECMISC    INDEX    B:  INFOSSN 
FIND    &AASSN 
STORE    HUMREL    TO     INHUM 
W    17,58    GET    INHUM    EICTURE    "XXXXXX" 
READ 

REPLACE    HOMREL    WITH    INHUM 
USE 

CASE    UPCPT    =    'TRAINING    MOS • 
STORE    T    TC    AACORR 
USE    B:INFCMISC    INDEX    B:IN?OSSN 
FIND    &AASSN 
STORE    MOS    TO   INMOS 

3    18,27    GET    INMOS    PICTURE    "XXXX" 
READ 

REPLACE    MCS    WITH    INMOS 
USE 

CASE    UPOPT    =    'PERSONAL    AFFAIRS' 
STORE    T    TC    AACORR 
USE    E:INECMISC    INDEX    B: INFOSSN 
FIND    &AASSN 

STORE    PERSAFFR    TO    INPERSAF 
a)    18,58    GET    INPERS2F    PICTURE    "XXXXXX" 
READ 

REPLACE    EERSAFFR    WITH    INPERSAF 
USE 

CASE    UPCPT    =    'LEADERSHIP' 
STORE    T     IC    AACORR 
USE    B:INFCMISC    INDEX    B:INFOSSN 
FIND    SAASSN 
STORE    LDBSHP    TO    INIDR 
a)    19,28    GET    INLDR    PICTURE    "XXXXXX" 
READ 

REPLACE    LERSHP     WITH    INLDR 
USE 

CASE    UPOPT    =    'UCMJ • 
STORE    T    TC    AACORR 
USE     B:INECMISC     INDEX    B:INFOSSN 
FIND    &AASSN 
STORE    UCMJ    TO    INUCMJ 

a)    19,58    GET    INUCMJ    PICTURE    "XXXXXX" 
READ 
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REPLACE    CCMJ    WITH    INUCMJ 
USE 

CASE    UPCPT    =    •CHAR    Z    tfORAL    ED* 
STORE    T    TC    AACORR 
USE    E:INFCMISC    INDEX    E:INFOSSN 
FIND    SAASSN 

STORE    CHBECRED    TO    INCHRMOR 
3    20,28    GET    INCHRMOR    PICTURE    "XXXXXX" 
READ 

REPLACE    CERMORED    WITH    INCHRMOR 
USE 

CASE    UPOPT    =    »CMMENTS» 
STORE    T    TC    AACOFR 
USE    AtPERS    INDEX    A:PERSSN 
FIND    &AASSN 
IF    COMMENT 

DC    WRTCMMNT 
DC    ITESCRN 
DC   GEIEATA 
ELS  E 

STORE    F    TO    INCCMMNT 

5)    21,16    GET    INCOMMNT    PICTURE    "X" 

READ 

REPLACE    COMMENT    WITH    INCOMMNT 

USE 

IF    INCCMMNT 

DO    CRTCMMNT 
DO    WRTCMMNT 
DO    ITRSCRN 
DO    GETDATA 
ENDIF 
ENDIF  / 

CASE    UPCPT    =    «Q«  f>  .. 

STORE   T    TC    AACOPR 
STORE    T    TC    AATHEU 
ENICASE 
ENCDC 
ENDEC 
RETURN 
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B.       HE    CREATION   CONTROL    ROOTINE 

*  Routine   Name:    Creatitr.pr g 

*  Module    Naire:       Maintenance    Module 

*  Version:    6.3.  0 

*  Authcr:D. E.    HAEUSLEE 

*  Date:    2   Dec  83 

*  Variables   Used:    crccmt),   aafini,    cragain 

*  Variables    Modified:   same    as   above 

*  Variables   Created:    same  as   above 

*  Variables   Released:    same    as   above 

*  Files    (opened/closed):    NONE 

*  Temporary   Files  Created:    NONE 

*  Using    Subroutines:    Maintain. prg 

*  Description:    This    routine    controls   the   creation    of   new 

*  ITR's. 

STORE  E  TO  AAFINI 

DO  WHILE  .NCT.  AAFINI 
ERASE 

DC  ITFSCEN 
DC  INEATA 

STCRE  F  10  CRCOMF 

DC  WHILE  .NOT.  CRCCMP 
ERASE 

ACCEPT  "DO  YOO  WANT  TO  CREATE  ANOTHER  ITR  (Y/N)?"; 
TO  CRAGAIN 
CO  C A CE 

CASE  !  (CRAGAIN)  =  »Y» 
STORE  T  TC  CRCOMP 

CASE  !  (CRAGAIN)  =  'N* 
STORE  T  TC  CRCOMP 
'  STORE  T  TC  AAFINI 

ENECASE 
ENDDO 
ENDDC 

RELEASE  ALL  LIKE  CR?17??? 
RELEASE  AAEINI 
DSE 

RETURN 
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I.       ITR    EATA   INITIALIZATION    BCUTINE 

*  Routine   Name:    Indata.prg 

*  Module   Name:    Haintenance    Module 

*  Version:    6.3. 1 

*  Author:  D.P.  Haeuslsr 

*  Date:  2   tec  83 

*  Variables    Used:   aadate.    vssn,    in*,    aassn 

*  Variables    Modified:   in*,    aassn 

*  Variables  Created:    in*,   aassn 

*  Variables   Released:    in*,    aassn 

*  Files    (opened/closed)  :   a:pers(0/C),    b:est(0/C), 

*  b:  mfcmisc  (0/C)  ,    b:qual(0/C) 

*  Temporary   Files  Created:    None 

*  Using    Subroutines:    Creatitr.prg 

*  Description:    This    icutine    inserts   the   data    in   the 

*  training    record   format  on    the   screen   and   checks    for 

*  errors   in   the    data   entry.      The    data    is   then   inserted    in 

*  the    data    base. 

STORE  AAEATE   TO    INDATE 

STORE  "LAST,    FIRST    MI.  "    TO    INNAME 

STORE  "       "    TO    INRANK 

STORE  "  "   TO    INPRIMEM 

STORE  "  "   TO     INSECMOS 

SIORE  "DDMMYY"    TC    INEETH 

STORE  "  "   TO    INSSN 

STORE  "  "    TC    INCCMP 

STORE  "  "    TO    1NPLAT 

STORE  "DDMMYY"    TO    INONDATE 

STORE  "DEMMYY"    TO    INEAS 

STORE  "    "    TC   INGAS 

STORE  "***"    TO    INCODE 

STORE  000    TC   INPFT1 

STORE  "DEMMYY"    TC    INPETDT1 

STORE  "***"    TO    INHIS 

STORE  000    TC   INPET2 

STORE  "DDMMYY"    TC    INEETDT2 

STORE  "***"    TO     INDRIII 

STORE  •'******«    TO    INKEC 

STORE  "***»    TO    ININT 

STORE  "4*****"    TC    INKKS 

STORE  »<44**4******»     TC    INAID 

STORE  "***"    TO    IJJUNI 

STORE  "44***"    TO    INTAC 

STORE  "S    "    TO    INSWQU 

STORE  "DEMMYY"    TO    INSWDT 

STORE  "0C0"    TO    INRFLSC 

STORE  "DEMMYY"    TC    INBFLDT 

STORE  "000"    TO    INWEIGHT 

STORE  "000"    TO    INPSTSC 

STORE  "DDMMYY"    TC    INESTDT 

STORE  "00"    TO    INHGHT 

STORE  "44****"    TO    INEIEC 

STORE  "44****"    TO    INERUG 

STORE  "44****"     TO    INCIDWTR 

STORE  «*«****"    TO    INAICH 

STORi*  »******"    TC    INIAW 

STORE  "44****"    TO    INEUM 

STORE  "****"   TO    INMOS 

STORE  «'******»    TO    INEERSAF 

STORE  »******»    TC    INIDR 

STORE  "44****"    TO    INDCMJ 

STORE  «♦*****«    TO    INCHRMOR 

STORE  E    TO    INCOMMNT 

STORE  F    TO    INWTCCNT 

STORE  "    "    TC    INPET1CI 

STORE  "    "    TC   INPET2CI 
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STORE 
STORE 


TO 
TO 


INBFLQD 

INFSTQU 


1 
1 
1 
1 
2 
2 
3 
3 
3 
3 
3 
4 
a 

4 
5 
5 
5 
6 
6 
7 
7 
8 
9 

?1 

1  1 
12 

12 
12 
13 

13 


17 

18 
18 
19 
19 
20 
21 


12  GET  INNAME  PICTURE  " 

5  1  GET  INRANK  PICTURE  " 
60  GET  INPRIMSM  EICTURE 

6  7  GET  INS  EC  MO  S  PICTURE 
22  GET  IN3RTH  PICTURE  " 
48  GET  INSSN  PICTURE  "9 
10  GET  INCOME  PICTURE  •» 
22  GET  INPLAT  PICTURE  M 
37  GET  INJNDATE  PICTURE 
50  GET  INEAS  PICTURE  "X 
66  GET  INGAS  PICTURE  "X 
27  GET  INCODE  PICTURE  " 
50  GET  INPFT1  PICTURE  " 
65  GET  INPFTDT1  PICTURE 
27  GET  INHIS  PICTURE  "X 
50  GET  INPFT2  PICTURE  " 
65  GET  INPFTDT2  EICTURE 
27  GET  INDRILL  PICTURE 
47  GET  INNBC  PICTURE  "X 
27  GET  ININT  PICTURE 
58  GET  INMKS  PICTURE 
27  GET  INAID  PICTURE 
27  GET  INUNI  PICTURE 
58  GET  INTAC  PICTURE 

19  GET  INSWCU  PICTURE 
28  GET  INSWDT  PICTURE 

20  GEI  INRFLSC  EICTURE 
35  GET  INPFLDT  EICTURE 
58  GET  INWEIGHT  EICTUR 
20  GET  INPSTSC  PICTURE 
35  GET  INPSTDT  EICTURE 
58  GET  INHGET  PICTURE 
28  GET  INELEC  PICTURE 
58  GET  INDRUG  PICTURE 
28  GET  INCLDWTB  EICTUR 
58  GET  INALCH  PICTURE 
28  GET  INLAW  PICTURE  " 
58  GET  INHUM  PICTURE  " 
28  GET  INMOS  PICTURE  " 
58  GET  INPERSAF  PICTUR 
28  GET  INLD5  PICTURE  " 
58  GET  INUCMJ  PICTURE 
28  GET  INCHRMOR  EICTUR 
16  GET  INCOMMNT  EICTUR 


XXXXX" 


"X 
"X 
"X 
"X 
"X 


X XX X XXXX XX XXXXXXXX XXXXX XXXXX XX" 

XX" 

uq  99  9  ii 

"9999" 
XXXXXX" 
S9999999" 
XXXXXX" 
XXXXXXXXX" 

"XXXXXX" 

XXXXX" 
ft 

XXX" 
999 

"X 
XX" 
999 

"X 
"XX 
XXX 
XX" 
XXX 
XXX 
XX" 
XXX 
"XX 
"XX 

"9 

"X 
E  " 

"9 

"X 
"99 
"XX 
"XX 
E  " 
"XX 
XXX 
XXX 
XXX 
E  " 
XXX 
"XX 
E  " 
E  " 


XXXXX" 

X" 

XX" 

XX" 

XXXXXXX" 

X" 
II 

XXXX" 

99" 

XXXXX" 

999" 

99" 

XXXXX" 
II 

XXXX" 

XXXX" 

XXXXXX" 

XXXX" 

XXX" 

XXX" 

X" 

XXXXXX" 

XXX" 

XXXX" 

XXXXXX" 

X" 


READ 
STOR 
STOR 
EO  W 

a 

a 

D 

s 

ENDD 

IF    I 

S 

R 

R 

D 

D 

R 

D 

2    1r 

2    1  , 


CHECKING    IN 
TO    ERROPT 


E    INSSN    TO     AASSN 
E    1    TC    ERROPT 
HILE    ERPOPT    <    17 

24,0    SAY    " 

24,  1    SAY    "     ERROR 
C    EHFOR 

TCRE     (ERROPT    ♦     1) 
C 

NCCMMNT 

A  TIE    TO    AtlNFILE    AIL    LIKE 
ELEASE     ALL    LIKE     IN?????? 
EIEASE    ALL    EXCEPT    AA?????? 
O    CRTCMMNT 
C     WRICMMNT 

ESTOEE    EROM     A:INEILE    ADDITIVE 
O    ITESCEN 
13    SAY    INNAME 
52    SAY    INRANK 


PROGRESS" 


IN 


•?•?•?  ■?-? 
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1 

1 

2 
2 
3 
3 
3 
3 
3 

a 
a 

4 
5 
5 
5 
6 
6 
7 
7 
8 
9 

?1 

11 
12 
12 
12 
13 
13 
13 
15 
15 
16 
16 
17 
17 
18 
18 
19 
19 
20 
21 
INDII 
2  24 


61 

66 

23 

US 

1  1 

23 

36 

51 

69 

26 

51 

66 

28 

51 

66 

28 

48 

28 

59 

26 

28 

59 
20 
29 
21 
36 
59 
21 
36 
59 
29 
59 
29 

CO 

29 
59 
29 
59 
29 
59 
29 

n 

1 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


INPSI 

INSEC 

INBRT 

INSSN 

INCOM 

INPLA 

INJND 

INEAS 

INGAS 

INCOD 

INPFT 

INPFT 

INHIS 

INPFT 

INPFT 

INDRI 

INNBC 

I  HI  NT 

INMKS 

INAID 

INUNI 

INTAC 

INSW 

INSW 

INRF 

INRF 

INWE 

INPS 

IN  PS 

INHG 

IN  EL 

INDR 

INCL 

INAL 

INLA 

INHD 

IN  MO 

INPE 

INLD 

INUC 

INCH 

INCO 


MEM 
BOS 


p 
T 
ATE 


1  USING    "99  9" 
DT1 

2  USING    "99  9" 

DT2 


QU 

DT 

L5C 

IDT 

IGHT 

TSC 

TDT 

HT 

EC 

UG 

DWTR 

CH 

S) 

a 

s 

RSAF 

B 

MJ 

RMOR 

MM  NT 


USE    H:E 

APPEND 

REPLACE 

REPLACE 

FEPLACE 

REPLACE 

REPLACE 

REPLACE 

EEPLACE 

FEPLACE 

REPLACE 


SAY  "STORING  TATA  IN  THE  SYSTEM  ON  DISK" 
ERS  INDEX  A:PEESSN,  ArALPHPSRS,  AzMOSNDX 
EIANK 

NAME   WITB    !  (INNAME) 

SSN    WITH    INSSK 

FANK    WITB    INRANKr    PRIMEMOS    WITH    INPRIMEM 

SECMOS     WITH    INSECMOS,    CCMPANY    WITH    ! (INCOMP) 


PLATOON     WITH    !  (INPLAT 


EAS    WITH    INEAS,    BRTHEATE 


If 


INJNDATE 


JOINDATE  WITH 
WITH  INBBTH 
COMMENT  WITH  INCOMMNT 
EEIGHT  WITH  INHGHT,  WEIGHT  WITH  INWEIGHT 
SICCNT  WITH  IKWTCONT,  GASMASK  WITH  ! (INGAS) 


E:  ES1SSN 


OSE    E:EST    INDEX 

AFPEND    EIANK 

REPLACE    SSN    WITH    INSSN,    COC     WITH    ! (INCODE) 

REPLACE    BIS    WITH    !(IFHIS),     COD    WITH    !(INDRILL) 

FEPLACE    INT    WITH    !  (ININT) ,     AID    WITH    1  (INAID) 

REPLACE    UNI    WITH    IflNUNlf 

REPLACE    FFT1RAW    WITH    INFFT1  ,    PFT1DATE    WITH    INPFTDT1 

FEPLACE    FET2RAW    WITH    INPFT2 ,    PFT2DATE    WITH    INPFTDT2 

REPLACE    NEC    WITH    !  (INNBC) 

REPLACE    £KS    WITH    !  (INMKS), TAC    WITH 

CSE    B:CjCAL    INDEX    B:QUALSSN 
APPENE    EIANK 


(INTAC) 
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EEPLACE  SSN    WITH    INSSN,    SHI  MQOAL    WITH    !(INSWQU) 

REPLACE  SHIMDATE    WITH    INSWDT,     EFLDATE    WITH    INEFLDT 

EEPLACE  EELSCORE    WITE    INRFLSC 

EEPLACE  ESTSCORE    WITE    INPSTSC 

REPLACE  ESTEATE    WITH    INPSTDT 

USE    E:INECMISC    INDEX    E:INFOSSN 

APPEND    BLANK 

EEPLACE    SSN    WITH    INSSN,    ELECWAR    WITH    ! (INELEC) 

REPLACE    CLDfcTHR     WITH     !(INCLDWTE) 

EEPLACE    LAWWAR    WITH     I  (INLAW )  ,    MOS    WITH    !  (INMOS) 

REPLACE    ERUG    WITH    !  (IKDRUG)  ,    LERSHP    WITH    INLDR 

REPLACE    ALCCHOL     WITH     !  (INALCH)  ,    HUMREL    WITH    !  (INHUM) 

EEPLACE    EERSAFFR    WITE    !(INPERSAF),    UCHJ    WITH    !(INUCMJ) 

REPLACE    CHRMORED    WITH    '(INCHBMCR) 

STORE     1    TO    CALCOPT 

DO  WHILE  CALCOPT  <  6 

DO  CALCULAT 

STCRE     (CALCOPT    +     1)    TO   CALCCPT 
END  DC 

RELEASE    ALL    EXCEPT    AA7????? 

ERASE 

STORE    AASSN    TO    VSSN 

EO    ITF5CBN 

EO    GEIDAIA 

STORE       E    TO    INDONE 

DO    WHILE    .NCT.     INDONE 

ACCEFT    "IS    THIS    DATA    CORRECT     (Y/N)  ?"    TO    INAGAIN 
DC    CASE 

CASE     !  (INAGAIN)     =    'Y' 
STCRE    T    TO    ^'DCNE 
CASE     I(INAGAIN)     =    (N' 
DO    UPDATA 
STCRE    T    TO     INDONE 
ENECASE 
ENDDC 

RELEASE    ALL    EXCEPT    AA7????? 
EETUEN 
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J-       DiTA    EREOR    CBECKIBG    ROUTIHE 

*  Routine    Name:    Error. prg 

*  Module   Name:    Mainterance    Module 

*  Version:  6.3 .1.1 

*  Author:  C.P.  Haeusler 

*  Date:  2  Dec  83 

*  Variables    Used:   aadate.    in*, 

*  Variables   Modified:   in* 

*  Variables  Created:    inerror 

*  Variables   Released:    rone 

*  Files    (opened/closed)  :   none 

*  Temporary   Files  Created:    none 

*  Using    Subroutines:    Creati tr. prg.    updata.prg 

*  Description:    This    rcutine    dees   the   error    checir.g   for    the 

*  infercatien  entered   in   each   ci   the   appropriate    fields. 

*  This   error  checking  is  not   very   extensive   because   this    is 

*  aprototype  system    tut   can    be   increased   if   the   n»ed 

*  arises . 

STORE    AAEATE   TO     INDATE 
STORE    T    TC    INERROR 
DO    WHILE    IKERROR 

STCEE    E    TO    INERROB 
DC    CASE 

CASE    ERROPT    =     1 

IF    .NOT.     ($  (INRANK.1,  1)     =    »E'     .OR.    $  (INR  ANK ,  1  ,  1)  ; 
=    H     .OR.     I  (INRANK,  1,  1)     =    '0') 
STORE    T    TC    INEREOE 
3    24,0    SAY    " 

a)    24,1     SAY    "IMPEOFEE    GRADE    —    REENTER" 
3    1,51     GET    INRANK    PICTURE    "X9" 
READ 
ENCIF 
CASE    ERROPT    =    2 

IE    .NOT.     (VAL ($ (INERTH,  1,2) )     <    31     .AND. 
VAL($(INEETH,3,  2)  )     <    13    .AND.; 
VAL  (f (INERTH, 5- 2)\    <    VAL ($ (IND ATS , 5, 2) ) ) 
STORE    T    TC    INERROR 
3)    24    0    SAY    " 

a)    24*1     SAY    "    IMPROPER    DATE    — REENTER" 
a)    2,22    GET    INBRTH    PICTURE    "939939" 
READ 
ENEIF 
CASE    ERROPT    =     3 

IF    .NOT.     (VAI  ($  (INJNEATE,1,2))     <    31     .AND.; 
VAL  (S  (INJNDATE,  2,2))     <    13    .AND. 
VAL(3(INJKDATE, 5,2))     <=    V AL ($  (INDATE, 5  ,2) ) ) 
STORE    T    TC    INEREOR 
a)    24    0    SAY    " 

d    24 '1     SAY    "    IMPROPER    DATE    --    REENTER" 
a)    3,37    GET    INJNDATE    PICTURE    "999999" 
READ 
ENEIF 
CASE    ERROPT    =     4 

IE    .NOT     (!(INGAS)      =    •  S»     .OR.     !  (INGAS)     =     •»•     .OS.; 
I(INGAS)     =    'LM 
STORE   T    TC    INERROR 
a)    24  ,0    SAY    " 

S    24,1     SAY    "    IMPROPER    GAS    MASK    SIZE    --    REENTER" 
a)    3,68    GET    INGAS    PICTURE    "X" 
READ 
ENCIF 
CASE    ERROPT   =    5 

IF    .NOT.     (IKFFT1    <    301) 
STORE   T    TC    INERROR 
5)    24  ,0    SAY    " 
S    24,1    SAY    "IMPROPER    PFT    SCORE    —    REENTER" 

21  1 


a    4,50    Gil    INPFT1    PICTURE    "999" 

READ 
ENDIF 
CASE    ERROPT    =     6 

IF    .NOT.     (VAI  ($  (INFFTET1,  1,2)  )     <    31     .AND.; 

VAL  ($(INFFTDT1,  3,2))     <    13    .AND.; 

VAL($(INFFTDT1,  5,2))     =    VAL ($(INDATE,5 , 2) )     .CR. 

INPFTDT1    =    «DDMMYY«) 

STORE   T    TC    INERROR 

a)    24  ,0  SAY  " 

3  24,1  SAY  »  IMPROPER  PFT  DATE  —  REENTER" 

a  4,65  GET  INPFTDT1  PICTURE  "999999" 

READ 
ENDIF 
CASE  ERROPT  =  1 

IF    .NOT.     (INEFT2    <    301) 

STORE   T    TC    INERROR 

a)    24  ,0    SAY    " 

3    24.1    SAY    "IMPEOFER    PFT    SCORE    —    REENTER" 

3    5,50    GET    INPFT2    PICTURE    "999" 

READ 
ENDIF 
CASE    ERROPT    =     6 

IF    .NOT.     (VAIJ$  (INPFTET2,  1  .2)  )     <    31     .AND.; 

VAL  ($(INFETDT2,  3,2)     <    13    .AND.; 

VALf$(INFFTDT2,  5,2))     =    VAL  ($  (INDATE,5  ,  2)  )     .CR. 

INPFTDT2    =    'DDMMYY') 

STORE   T    TC    INERROR 

3    24  ,0    SAX    " 

3    24,1    SAY    "    IMPROPER    PFT    DATE    —    REENTER" 

3    5.65    GET    INPFTDT2    PICTURE    "999999" 

READ 
ENDIF 
CASE    ERROPT    =     S 

IF    .NOT.     ($  (INSWQU  ,1,  1)     =«S'     .OR.     $(  INSWQU,  1,  1 )  ; 

=    'S'     .OF.    INSWQU    =    »WQ«     .OR.     INSWQU    =     'wq') 

STORE    T    TC    INERROR 

a    24    0    SAY    " 

3    24^1     SAY    "    IMFECFER    ENTRY    —    REENTER" 

a    11,19    GET    INSWQU    PICTURE    "XX" 

READ 
ENEIF 
CASE    ERROPT    =     10 

IF    .NOT.     (VAL($  (INSWDT,  1,2)  )     <    31     .AND.; 

VAL($(INSKDT,3,  2)  )     <    13    .AND.; 

VAL  (S  (INSWDT, 5,  2))     <=    VAL  ($  (INDATE, 5, 2) )      .CP.  ; 

INSWDT    =     'DDMMYYM 

STORE    T    TC    INERROR 

a    24,0    SAY    " 

a    24,1     SAY    "    IMPROPER    DATE    --    RENTER" 

a    11,23    GET    INSWDT    PICTURE    "999999" 

READ 
ENEIF 
CASE    ERROPT    =     11 

IF  .NOT.  (INSFLSC  <  »  25 1  •) 

STORE  T  TC  INERROR 

a    24,0    SAY    " 

3    24,1     SAY    "IMPFOFER    RIFLE    SCORE    REENTER" 

a    12,20    GET    INRFLSC    PICTURE    "999" 

READ 
ENEIF 
CASE    ERROPT    =     12 


IF    .NOT.     (VAL($(INRFLDT,  1.  2)  )     <    31     .AND 
~'INFFLDT,3,2)  )     <    \" 

:nrfldt,5  ,2)  ) 
1  =  •ddhmyyM 


VAL($(iNFFLDT,3  ,2)  )     <    13    .AND. 

VAL  ($(INRFLDT,5 ,2) )     <=    VAL ($  (INDATE, 5 , 2)  )     . CR 

INRFLDT 

STORE    T    TC    INERROR 

a  24,0  SAY  " 

a  24,1  SAY  "IMPFOFER  DATE  —  REENTER" 
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a    12,35    GET    INRFLDT    PICTURE    "999999" 

READ 
ENDIF 
CASE    ERROPT    =     13 

IF    INWEIGHT    >    •300'     .CR.     INWEIGHT    <    '0701 

STORE   T    TC    INERROR 

3    24  ,0    SAY    " 

a    24,1    SSI    "    IMFROFER    WEIGHT    —    REENTER" 

3    12,58    GET    INWEIGHT    PICTURE    "999" 

READ 
ENDIF 
CASE    ERROPT    =     14 

IF    .NOT.     (INESTSC    <    •  30  1  • ) 

STORE   T    TC    INERROR 

a    2  4  ,0    SAY    " 

3    24,1    SAY    "    IMFROFER    PISTOL    SCORE    —    REENTER" 

a    13,20    GET    INPSTSC    PICTURE    "999" 

READ 
ENDIF 
CASE    ERROPT    =     15 

IF    .NOT.     (VAI     ($(INPSTDT,1,2))     <    31     .AND.; 

VAL (3(INFSTDT,3,2) )     <    13    .AND.; 

VAL($(INFSTDT,5  ,2)  )     <=    VAL ($  (INDATE,5 , 2) )     .CR.: 

INPSIDT    =    » DDMMYY*     ) 

STORE   T    TC    INERROR 

a    24  ,0     SAY    " 

a    24,1    SAY    "IMPROPER    DATE    —    REENTER" 

3    13,35    GET    INPSTDT    PICTURE    "999999" 

READ 
ENDIF 
CASE    ERROPT    =     16 

IF    .NOT.     (INHGHT    <     '78*     .AND.     INHGHT    >    ' 64f ) 

STORE   T    TC    INERROR 

a    24,0    SAY    " 

a    24,1    SAY    "IMPROPER    HEIGHT    --    REENTER" 

a    13,58    GET    INHGHT    PICTURE    "99" 

READ 
ENDIF 
ENtCASE 
ENDDC 
EETUFN 
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K.       CALCULATION    ROUTIBE 

*  Routine    Name:    Calculat.pr  g 

*  Module   Name:    Mainterance    Module 

*  Versicr:    6.3 . 1  .2 

*  Author:    C.P.    Haeusl€r 

*  Date:    2    Esc   83 

*  Variables  Used:  calcopt,  aassn,  aada-ce,  brthdate,  age, 

*  mm,   in* 

*  Variables   Modified:  age,    mm,    in* 

*  Variables   Created:    age.    ma,    in* 

*  Variables   Released:   all  except   aa?????? 

*  Files     (c/c):    a:pers(o/c),    b:qual(o/c),    b:est(o/c) 

*  Temporary   Files  Created:    none 

*  Osina    Subroutines:    Opdata.prg,    indata.prg 

*  Description:    This    routine    aces   the   calculations    that    are 

*  triggered   by    the    entry  of    data   into    certain    fields   of  -be 

*  ITS.      These  calculations    reconstruct   the   tables    found   in 

*  the    training    orders. 

EO    CASE 

CASE    CALCOPT    =    1 

USE    A:PERS    INDEX    A:PERSSN 
FIND    SAASSN 
IF    JNFFT1    >    0 

STCRE     (VAL  ($  (AADATE,5,2)  )     -; 
(VAL($  (ERTHIATE.5,  2)  )  ))     TO    AGE 
STCRE     (VALfl  (AADATE.3.2)  )     -; 
(VAL($  (BRTHEATE,3, 2) )  ))     TO    MM 
IF    MM    <    0 

STORE    AGE    -    1    TC    AGE 
ENEIF 

GSE   B:EST    IKEEX    B:ESTSSN 
FIND    &AASSN 
IF    PFT1RAW    >=    285 

STORE    ' S»    TO    INPFT1CL 
REPLACE    F-FT1CLSS    WITH    INPFT1CL 
a)    4,57    SAY    INPFT1CL 
RELEASE    INPFT1CL 
USE 
EL  CE 

"IF    AGE    <=    26 

STORE    EFT1RAW    TC    IPFT1RAW 
ENDIF 
IF    AGE    <    40    .ANE.     AGE    >    26 

STORE     (PFT1RAW    +    25)     TO    IPFT1RAW 
ENDIF 
IF    AGE    >    59 

STORE     (PFT1RAW    ♦    50)     TO    IPFT1RAW 
ENDIF 
IF    IEFT1BAW    <=       134 

STORE    'U*    TO    INFFT1CL 
REPLACE    PFT1CLSS    WITH    INPFT1CL 
a)    4,57    SAY    INPFT1CL 
RELEASE    INPFT1CL 
USE 
ENDIF 

IF    IPFT1BAW    <=     174    .AND.    IPFT1RAW    >    134 
STORE     •3'    TO    INEFT1CL 
REPLACE    PFT1CLSS    WITH    INPFT1CL 
a)    U  .57    SAY   INPFT1CL 
RELEASE    INPFT1CL 
USE 
ENDIF 

IF    IFFT1BAW    <=    22U    .AND.     IPFT1RAW    >    174 
STORE    »2'    TO    INPFT1CL 
REPLACE    PFT1CLSS    WITH    INPFT1CL 
a    4,57    SAY    INPFI1CL 
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RELEASE    INPFT1CI 
USE 
ENDIF 
IF    IPFT1EAW    >    224 

STORE     M ■    TO    INFFT1CL 
REPLACE    PFT1CLSS    WITH    INPFT1CL 
3    4,57    SAY    INFFT1CL 
RELEASE    INPFT1CL 
USE 
ENDIF 
ENDIF 
ENEIE 
CASE    CALCOPT    =    2 

USE    S:PERS    INDEX    A:PERSSN 
FIND    SAASSN 
IE    INPFT2    >    0 

STCRE     (VAL  ($  <AADATE,5,2)  )     -; 
Vill($  (BRTHDATE,5,  2)  )  )     TO    AGE 
STCRE     (VAL($(AADATE,3,2)  )     -; 
VAL{S  (BRTHDATE,3,2)  )  )     TO    MM 
IF    MM    <    0 

STORE    AGE    -    1    TC    AGE 
ENEIF 

USE   B;EST    IKEEX    B:ESTSSN 
FIND    SAASSN 
IF    PFT2RAW    >=    285 

STORE    '  S1    TO    INPFT2CL 
REPLACE    EFT2CLSS    WITH    INPFT2CL 
9   5,57    SAY    INPFI2CL 
RELEASE    IKPFT2CL 
USE 
ELSE 

IF    AGE    <=    26 

STORE  IFT2FAW  TC  IPFT2RAW 
ENDIF 
IF  AGE  <  40  .ANE.  AGE  >  26 

STORE  (PFT2RAW  ♦  25)  TO  IPFT2RAW 
ENDIF 
IF  AGE  >  39 

STORE  (PFT2RAW  ♦  50)  TO  IPFT2RAW 
ENDIF 
IF  IPFT2RAW  <=   134 

STORE  «U'  TO  INPFT2CL 
REPLACE  PFT2CLSS  WITH  INPFT2CL 
3  5.5*7  SAY  INPFT2CL 
RELEASE  INPFT2CI 
USE 
ENDIF 

IF  IPFT2BSW  <=  174  .AND.  IPFT2RAW  >  134 
STORE  '3»  TO  INEFT2CL 
REPLACE  PFT2CLSS  WITH  INPFT2CL 
3  5,57  SAY  I NPFT2CL 
RELEASE  INPFT2CL 
USE 
ENDIF 

IF  IFFT2EAW  <=  224  .AND.  IPFT2RAW  >  174 
STORE  '2'  TO  INPFT2CL 
REPLACE  PFT2CLSS  WITH  INPFT2CL 
3  5,57  SAY  INPFT2CL 
RELEASE  INPFT2CL 
USE 
ENDIF 
IF  IPFT2BAW  >  224 

STORE  «1 ■  TO  INFFT2CL 
REPLACE  PFT2CLSS  WITH  INPFT2CL 
a)  5,57  SAY  INFFT2CL 
RELEASE  INPFT2CL 
USE 
ENDIF 
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ENDIF 
ENEIJ 
CASE    CALCOPT    =    3 

USE    E:QOAL    INDEX    E:QUALSSN 

FIND    £AASSN 

IE    RELSCORE    >     'C' 

IF    RFLSCORE    <    •  190  • 

STORE    • UN*    TO    INRFLQU 
REPLACE    EELQUAL    WITH    INRFLQU 
9    12  ,27    SAY    INRFLCO 
RELEASE    INRFLQU 
ENDIF 

IE    RFLSCORE    <    '2101     .AND.    RFLSCORE    >=    «190» 
STORE    «MK«    TC   I KRFIQU 
REPLACE    EELQUAL    WITH    INRFLQU 
3    12,27    SAY    INRFLQU 
RELEASE    INRFLQU 
ENEIF 

IE    RFLSCORE    <    ■ 220 ■     .AND.    RFLSCORE    >=    '210' 
STORE    • SS«    TC   I NEFIQU 
REPLACE    EELQUAL    WITH    INRFLQU 
3    12  ,27    SAY    INRFLQU 
RELEASE    INRFLQU 
ENDIF 
IE    RFLSCORE    >=    '22C 

STORE    'EX1    TO   I NRFIQU 
REPLACE    EELQUAL    WITH    INRFLQU 
3    12,27    SAY    INRFLQU 
RELEASE    INRFLQU 
ENDIF 
USE 
ENEIF 
CASE    CALCOPT    =    4 

CSE    E:QUAL    INDEX    B:QUALSSN 

FINE    SAASSN 

IF    ESTSCORE    >     «0« 

IF    PSTSCORE    <    ■  180  ■ 

STORE    'UK1    TO   I NFSTQU 
REPLACE    ESTQUAL    WITH    INPSTQU 
a    13,27    SAY    INPSTQU 
RELEASE    ISESTQU 
ENEIF 

IF    PSTSCORE    <    "210  •     .AND.     PSTSCORE    >=    •  180« 
STORE    ■  MM'    TO    INPSTQU 
REPLACE    ESTQUAL    WITH    INPSTQU 
5)    13.27    SAY    INPSTQU 
RELEASE    IFPSTQO 
ENEIF 

IF    PSTSCORE    <    »250»    . SND.     PSTSCORE    >=    '210' 
STORE    • SS'    TO    INPSIQU 
REPLACE    ESTQUAL    WITH    INPSTQU 
a    13,27    SAY    INPSTQU 
RELEASE    I*;PSTQU 
ENEIF 
IF    PSTSCORE    >=     «250« 

STORE    ■ EX*    TO    INPSIQU 
REPLACE    ESTQUAL    WITH    INPSTQU 
a    13,27    SAY    INPSTQU 
RELEASE    IKPSTQU 
ENEIF 
USE 
ENEIE 
CASE    CALCOPT    =    5 

'USE    A:PERS    INDEX    A:PERSSN 
FIND    SAASSN 
STCRE    T    TO    INWTCONT 

IF    HEIGHT    =    •6H1    .AND.    WEIGHT    <=    M60'     .AND.; 
WEIGHT     >=     ■  1C5» 
STCRE    F    TO    INWTCONT 
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REPLACE    WTCCNI    WITH    INWTCONT 

3     11,59    SAY    INWTCONT 
ENEIF 
IF    EEIGHT    =    '65'     .AND.    WEIGHT    <=    M65"     .AND.; 

WEIGHT    >=     M06' 

STCRE    F    TO     INWTCONT 

REPLACE    WTCCNI    WITH    INWICONT 

5)     11,59    SAY    INWTCONT 
ENEIF 
IF    HEIGHT    =    «66»    .AND.     WEIGHT    <=     M701     .AND.; 

WEIGHT    >=     •  1C7» 

STCRE    F    TO    INWTCONT 

REPLACE    WTCCNT    WITH    INWTCONT 

2  11,59    SAY    INWTCONT 
FNDIF 

IF    EF3GHT    =    •  67'     .AND.    WEIGHT    <=    M75'     .AND.; 
WEIGHT    >=     M11« 
STCRE    F    TO    INWTCONT 
REPLACE    WTCCNI    WITH    INWTCONT 

3  11,59    SAY    INWTCONT 
ENEIF 

IF    HEIGHT    =    •68*    .AND.     WEIGHT    <=     •  18 1  •     .AND.; 

WEIGHT    >=     ■  115' 

STCRE    F    TO    IKWTCONT 

REPLACE    WTCCNI    WITH    INWTCONT 

9     11,59    SAY    INWTCONT 
ENEIF 
IE    EEIGHT    =    ■  6S'    .AND.    WEIGHT    <=    MSG1     .AND.; 

WEIGHT    >=     M191 

STCRE    F    TO    INWTCONT 

REPLACE    WTCCNI    WITH    INWTCONT 

3     11,59    SAY    INWTCONT 
ENEIF 
IF    HEIGHT    =    ,7C»    .AND.     WEIGHT    <=    M92«     .AND.; 

WEIGHT    >=     ■  123' 

STCRE    F    TO    INWTCONT 

REPLACE    WTCCNI    WITH    INWTCONT 

3     11,59    SAY    INWTCONT 
ENCIF 
IF    EEIGHT    =    «71«     .AND.     WEIGHT    <=    M97»     .AND.; 

WEIGHT    >=     M27» 

STORE    F    TO     INWTCONT 

REPLACE    WTCCNI    WITH    INWTCONT 

S     11,59    SAY    INWTCONT 
ENEIF 
IF    HEIGHT    =    •72'    .AND.    WEIGHT    <=    ,203«     .AND.; 

WEIGHT    >=     ■  12 11 

SICRE    F    TO    IKWTCONT 

REPLACE    WTCCNI    WITH    INWTCONT 

3     11,59    SAY    INWTCONT 

P  M  T*  T 1? 

IF    EEIGHT    =    •72'     .AND.    WEIGHT    <=    «209«     .AND.; 

WEIGHT    >=     M35» 

STCRE    F    TO     INWTCONT 

REPLACE    WTCCNT    WITH    INWTCONT 

a     11,59    SAY    INWTCONT 
ENEIF 
IF    HEIGHT    =    »74»    .AND.    WEIGHT    <=     '21U»     .AND.; 

WEIGHT    >=     ■  129" 

SICRE    F    TO    INWTCONT 

REPLACE    WTCCNI    WITH    INWTCONT 

2     11,59    SAY    INWTCONT 
ENDIF 
IF    EEIGHT    =    '75'     .AND.    WEIGHT    <=    '219'     .AND.; 

WEIGHT    >=     M43' 

STCRE    F    TO     INWTCONT 

REPLACE    WTCCNI    WITH    INWTCONT 

a     11,59    SAY    INWTCONT 
ENEIF 
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IF    HEIGHT    =    '76*    .AND.     WEIGHT    <=     ,225'     .AND 

WEIGHT    >=     «  147' 

STCRE    F    TO    INWTCONT 

REELACE    WTCCM    WITH    INWTCONT 

S     11,  59    SAY    INWTCONT 
ENDIF 
IE    EEIGHT    =    «7T     .AND.     WEIGHT    <=    '230'     .AND 

WEIGHT    >=     •  151  • 

STORE    F    TO     INWTCONT 

REELACE    WTCCNI    WITH    INWTCONT 

3     11,59    SAY    INWTCONT 
ENEIF 
IF    HEIGHT    =    «7e«    .AND.    WEIGHT    <=    «235«     .AND 

WEIGHT    >=     "  153* 

STCRE    F    TO    INWTCONT 

REELACE    WTCCNI    WITH    INWTCONT 

a     11,59    SAY    INWTCONT 
ENEIF 
IE    INWTCONT 

REELACE    WTCCNI    WITH    INWTCONT 

3     11,59    SAY    INWTCONT 
ENEIF 
USE 
ENECASE 
EETUBN 
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CCMMINT    UPDATE    RCUTI3E 


Routine   Name:    Wrtcimnt . or g 

Module   Naire:    Maintenance    Module 

Versicr:    €.3. 1 .3 

Author:    D.P.    Haeusler 

Date:    19   Jan    84 

Variables   Used:   aassn,   intxt* 

Variables   Modified:   intxt* 

Variables  Created:    intxt* 

Variables    Released:    all   like   intxt* 

Files    (opened/closed):    a:cmmnt    (o/c) 

Temporary   Files  Created:    none 

Using    Subroutines:    indata.pro,    updata.prg 

Description:    This    routine    updates   the   informal 

in    the    data   base    en  an   individual. 
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M.       CCMMENT    CREATION    EOUTINE 

*  Routine   Name:    Crtcinrnt.pr  g 

*  Module    Nacre:    Maintenance    Module 

*  Version:    6.3. 1 .4 

*  Author:    D.P.    Haeusler 

*  Date:    10   Jan    84 

*  Variables   Used:    neutext.    aassn 

*  Variables   Modified:    newtext 

*  Variables   Created:    newtext 

*  Variables    Released:    newtext 

*  Files    (opened/closed):   a:cmmnt    (o/c) 

*  Temporary   Files  Created:    none 

*  Using    Subroutines:    indata.pro,    updata.prg 

*  Description:    This    routine    creates   a   comment    data    base 

*  file    for   the    individual  that   corresDonds    to   the   aassn 

*  This    file    when  created   has    10    fields   of    25    characters 

*  each   and    is   filled   with  asterisks. 

STORE    ii********************  *****»■    TO    NEWTXT 

CSE    A:CMKNT    INDEX    A:CKMNTSSN 

APPENE    EIANK 

REPLACE    SSN    WITH    AASSS,    INFCTXT1    WITH    NEWTXT 

EEPLACE    INEOTXT2    WITH    NEWTXT,    INFOTXT3    WITH    NEWTXT 

REPLACE    INFCTXT5    WITH    NEWTXT,     INFOTXT6    WITH    NEWTXT 

BEPLACE    INI0TXT7    WITH    NEWTXT,    INFOTXT8    WITH    NEWTXT 

REPLACE    INFCTXT9    WITH    NEWTXT,    INFOTXT0    WITH    NEWTXT 

EEPLACE    1NFCTXT4    WITE    NEWTXT 

CSE 

EELEASE  NEWTXT 

RETUEN 


220 


N.       DELETE    ITR    RCUTIHE 

*  Routine   Name:    Eeletitr.prg 

*  Module   Naae:    Haintenance    Module 

*  Versior:    6.4. 0 

*  Author:  D.P.  Haeusler 

*  Date:  20  Jan  8  4 

*  Variables   Used:    del*,    aassn 

*  Variables   Modified:   del*,    aassn 

*  Variables  Created:    del* 

*  Variables   Released:    del* 

*  Files    (opened/closed)  :    a:pers(o/c),    b:est(o>/c), 

b: qual  (c/c) ,    b : inf omisc (o/c) 

*  Temporary   Files  Created:    none 

*  Using    Subroutines:    Maintain. prg 

*  Description:    This    icutine    deletes   records   in  the   data 


*  Using    Subroutines:    Maintain. pr 

*  Description:    This    icutine    dele 

*  base.      It   first  checks  to    see    if   the   record   is    in   the 

*  data    taser   displays  the  reccrd,    queries    the   user   if 

*  is    the    record    to    be   deleted,    and   deletes    the  reccrd 


STORE    F    10    EELFINI 
DO    WHILE    .NCT.     DELFINI 
ERASE 

a)     12,50    SAY     "ITR    10    BE    DELETED" 

ACCEPT    "  NAME     (LAST,    FIRST    MI.) ====>"    TO    DELNAME 

USE    A:EEES    INDEX    A:ALPHPERS,    A:PERSSN,     A:M0SNDX 
FIND    SDELNAME 
IF    .NCT.    #    =    0 

STCRE    SSN    TO    AASSN 

EC    ITESCRN 

DO    GETDATA 

STCRE    F    TO    DELTHRU 

DO    WHILE     .NOT.     EELTHRU 

a)    23,0     SAY    "    IS    THIS    ITR    TO    BE    DELETED?    " 
ACCEPT    "    ENTER    YES    OF    NO    =====>»    TO    DELCHK 
IF    ! (DELCHK)    =    'NO ■ 

STORE    T    TC    DELTHRU 
EL  SE 

"IF    !  (DELCHK)     =     'YES* 
ERAS  E 

a)    12,20    SAY    "DELETING    ITR" 
STORE    T    TO    DELTHRU 

USE    A:FERS    INDEX    A:AL?H?ERS,    A:PERSSN,; 
A:MOSNEX 
FIND    5AASSN 
IF    .NCT.     #    =    0 
DELETE 
PACK 
ENDIF 

USE    A:CMMNT    INDEX    A:CMMNTSSN 
FIND    SAASSN 
IF    .NCT.     #    =    0 
DELETE 
PACK 
ENDIF 

USE    B:CUAL    INDEX    E:QUALSSN 
FIND    5AASSN 
IF    .NCT.     #    =    0 
DELETE 
PACK 
ENDIF 

USE    B:EST    INEEX    B:ESTSSN 
FIND    SAASSN 
IF    .NCT.     #    =    0 
DELETE 
PACK 
ENDIF 
USE    B:INFOMISC    INEEX    A:INFOSSN 

22  1 


FIND    SflASSN 
IF    .NCI.     #    =    0 
DEIETE 
PACK 
ENDIF 
ENDIF 
ENEIF 
ENDDO 
ENEIF 

SICRE    F    10    DEIDONE 
DC    WHILE    .NOT.    DELEONE 
ER  SSE 

3     12,20    SAY    »    EC    YOU    HANI    TO    DELETE    ANOTHER    RECORE?    " 
ACCEPT   "  ESTER    YES    CR    NO    =  =  ======>    »    TO    DELCHK 

IE    '(EELCHK)     =    'NO' 
SICRE    T    TO    EELDONE 
SICRE    T    TO    EELFINI 
EI  CE 

WIF    l(DELCHK)    =    'YES* 
STORE    T    IC    DELDCNE 
ENEIF 
ENEIF 
ENEDO 
ENDDC 

BELE2SE    fiLL    EXCEPT    AA?????? 
EETURN 
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C-       SISTIM    FUNCTION    CCBTEOL    ROUTINE 

*  Routine   Name:    System. prg 

*  Module   Name:    Maintenance    Module 

*  Version:    6.5.0 

*  Author:    D.P.    Haeusler 

*  Date:    30    Jan    1 984 

*  Variatles   Dsed:    aacomple,    sysopt 

*  Variables    Modified:  aacomple,    sysopt 

*  Variatles   Created:    aacomple,    sysopt 

*  Variables   Released:   aacomple,   sysopt 

*  Files    (opened/ closed)  :    none 

*  Temporary   Files  Created:    none 

*  Using    Subroutines:    Maintain. prg 

*  Description:    This    module    creates   the   menu   for   all   the 

*  system    function   modifications.    It   is  a    restricted    module 

*  and   car   only    be   accessed    by   a   user   with   a  authorization 

*  level   cf    1.      The   mcdule  then    can   choose    the   appropriate 

*  subroutine  corresponding    to   the  option   selected. 

STORE    F    10    AACOMPLE 
CO    WRITE    .NOT,     AACOMEIE 
EEASE 

3    6,29    SAY    »     SYSTEM    FUNCTION    MENU    » 
3    8.2U    SAY    "     SELECT    ONE    CF    THE    FOLLOWING   OPTIONS" 

a     10,21    SAY    "I INSTALL    SYSTEM" 

a     11,31     SAY    "S.  ..SYSTEM    RESET     (YEARLY)" 
a     12,31    SAY     "A.  ..ACCESS    LIST    MAINTENANCE" 

3     13,31     SAY    "C COIT   TO    MAINTENCE    MENU" 

ACCEPT    "  ENTER    OPTION    ===>"    TO    SYSOPT 

DC    CASE 

CASE    !  (SYSOPT)     =    "I" 
STCRE    F    TO    AACOMPLE 
DO    B:INSTALI 
CASE    !  (SYSOPT)     =    "S" 
STCRE    F    TO    AACOMPLE 
DO    B:SYSRESEI 
CASE     !  (SYSOPT)     =    "A" 
STCRE    F    TO    AACOMPLE 
EC    B:RSTACCSS 
CASE     !  (SYSOPT)     =    "Q" 
STORE    T    TO    AACOMPLE 
ENECASE 
ENDCC 

RELEASE    ALL    EXCEPT    AA:????? 
RELEASE    AACCMPLE 
BETUFK 
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P.   SYSTEM  INSTAIATICB  ROUTINE 
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ERASE 
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GET 
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34  GET 
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9,1 
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10, 

10, 

READ 

STORE 

STORE 

STORE 

STORE 

SAVE 

ERASE 

EELEA 

ESSTO 

a    12, 

ACCEP 

SAVE 

EELEA 

EESTC 

EETUE 


C    SAX 
5    SAY 

5  SP.Y 

6  GET 

5  SAY 

6  GET 

5  SAY 

6  GIT 
15    SAY 
26    GET 


(CNE 
(IWC 

(THE 

(EOU 

UNI 


TO 


M   A:UNITMEM 
"SYSTEM    IKSTALLATICN" 
"ENTER    THE    NAMES    OF    YOUR 
"COMPANY/EATTERY    #1" 
CNECO    PICTURE    "XXXXXX" 
"COMPANY/EATTERY    #2" 
TWOCO    PICTURE    "XXXXXX" 
"COMPANY/E2TTERY    #3" 
THREECO    PICTURE    "XXXXXX" 

"COMFANY/EATTERX    #4" 

FOURCO    PICTURE    "XXXXXX" 

CO)     TO    ONECO 
CO      TC    TWCCO 
EECO)     TO    THREECO 
ECO)     TO    FCUECO 

"SYSTEM    I EST ALLA TIC N" 

"ENTER    THE~NAMES    OE    PLATOON    SIZED    UNITS" 

"PLAT  CON     #1" 

CNEPLT    PICIURE    "XXXXXXXXX" 

"PLATCON     *2" 

TWOPLT    PICIURE    "XXXXXXXXX" 

"PLATCON    S3" 

THREEPLT    PICTURE    "XXXXXXXXX" 

"PLATOON    #4" 

FOURPLT    PICTURE    "XXXXXXXXX" 

PLT)     TO    ONEPLT 
ELT)     10    TfcCFLT 
EEPLT)     TO    THREEPIT 
EPLT)     TO    ECUBPLT 
TMEM 


SE  J.LL 
BE  EEC 
25  SAY 
I  " 


TC 
SE 
EE 
N 


t    A: MEMDISK 
"ENTER  TEE  CURRENT  YEAR" 

YEAR  (YY)  ===>»  TO 
EMDISK 


CRNTYR 


A:M 

ALL 

ERCM  TEMP 
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SYSTEM  BESET  R001IHE 


* 
* 

* 


Rou 
Mod 
Ver 
Aut 
Dat 
Var 
Var 
Var 
Var 
Fil 
Tem 
Usi 
Des 
def 
inf 
ind 
the 
rou 


tiD€  N 

ule  Na 
sicr: 
hor :  E 
e:  4  F 
iafcles 
iablGs 
iables 
iafcles 
es  (cp 
porary 
ng  Sub 
cripti 
ault  v 
crmati 
ividua 
rarge 
tines 


ame :    Sysr 
me:    Maxnt 
6.5.2 
.P.    Haeus 
eb   84 
Used:    cr 
Modified 
Cr  e  a  te  d : 
Released 
er.ed/clos 
Files   Cr 
routines: 
en:    This 
alue    for 
en  is   the 
1.      It   al 
quotas    t 
that    use 


g*. 


*co 


eset.pr g 
€r.ance    Module 

ler 

ntyr,    reset,    rgreset,    don?,    q*, 
:  crntyr,    reset,    rgreset,    done, 

reset,    rgreset,    done 
:    all 

ed) :   a: memdisk. mem,    a:unitmem . mem, 
€2ted:    temp. mem 

System .prg 
rcutine    sets    all   the   values   to   the 
the    fields   that   are    reset    yearly, 
n   stored   in   the   data   base   tor    each 
sc  stores    the   yearly    projections   en 
c  a   memory   file   that   can    be   recalled    fcy 
these   values   for   calculations. 


The 


SAVE 
EELE 
JEST 
ERAS 
S  10 
ACCE 
SAVE 
RELE 
STOR 
DO  W 
E 

THE 
A 

I 


SAY 


U 


E 
ENDD 
IF    R 


FOR 


TO 
ASE 
CFE 
E 

,15 
PI    " 

TO    A:M 
ASE    ALL 
E    E    TO 
HILE    .N 
EASE 

10,15 
YEAB?" 
CCEFT    " 
F    !  (EES 
STCRE 
STCRE 
LSE 
IF 
S 
ST 
ENDIF 
NEIE 
0 

GEESET 
EASE 
ESTOFE 
ESTOBE 

3,  15    S 
THE    YEA 

4, 15    S 

U, 25 

6,15 

6,23 

I,  15 
7^24 
8,15 
6,21 

9,  15 
9,21 

10,  15 
10,19 

II,  15 
11,20 

12,  15 
12,20 

13,  15 


TEMP 

ALL 

EBCM    A:MEMDISK    ADDITIVE 


"ENTER    TEE    CURRENT    YEAR" 

YEAR     (YY)     ==  =  >"    TO    CRNTYR 
EMDISK 

EONE 

CT.     DONE 

SAY    "DO    YCD    WANT    TC    RESET    RANGE    QUOTAS     FOR; 

ENTEE     (Y    OR    N)     ====>"    TO    RESET 
ET)     =    »Y« 

T    TO    DONE 

T    TO    RGRESET 

BESET)     =     'N1 
CRE    T    TO    ECNE 
CRE    F   TO    RGRESET 


FROM    A:ARNGQTAS 

FROM    A:UNITMEM    ADDITIVE 

AY    "ENTER    BANGE    QUOTAS    AS    PROJECTED,; 

V 

AY    "FOB    UNIT:    " 

AY    CNECO 

AY    "JANUAEY" 

ET    QJAN    PICTUEE    "999" 

AY    "FEBBUAEY" 

ET    QFEB    PICTURE    "999" 

AY    "MARCH" 

ET    QMAR    PICTURE    "999" 

AY    "APRIL" 

ET    QAFR    PICTURE     "999" 

SAY     "MAY" 

GET    QMAY    EICTURE    "999" 

SAY    "JUNE" 

GET    QJUN    PICTURE     "999" 

SAY    "JULY" 

GET    QJUL    PICTURE    "999" 

SAY    "AUGUST" 
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3     13,22    GET    QAUG    PICTURE    "999" 

2  14,15    SAY    "SEPTEMBER" 

a     14,25    GET    QSEP    PICTURE    "999" 

3  15,15    SAY    "OCTOEER" 

S     15,23    GET    QCCT    PICTURE    "959" 

a    16,15    SAY    "NQVEKEER" 

a     16,24    GET    QNOV    PICTURE    "999" 

a     17,15    SAY    "EECEKEER" 

a     17,24    GET    QEEC    PICTURE    "959" 

READ 

RELEASE    ALL    EXCEPT    Q??? 

SAVE    10    A:ARNGQTAS 

RELEASE    ALL 

RESTORE    FROM    A:BRKGQTAS 

RESTOFE    EROM    UNITMEM    ADDITIVE 

ERASE 

a  3.15  SAY  "ENTER  RANGE  QUOTAS  AS  PROJECTED, 
FOR    THE    SEAR," 

a    4,15    SAY    "FOR    UNIT:    " 

a    4,25    SAY    TWCCO 

3    6,  15    SAY    "JANUARY" 

a    6,23    GET    QJAN    PICTURE    "999" 

a    7,  15    SAY    "FEBRUARY" 

a    7,24    GET    QFEB    PICTURE    "999" 

a    8,15    SAY    ''MARCH" 

a    8,21    GET    QMAR    PICTURE    "999" 

a    9,15    SAY    "APRIL" 

a    S.21    GET    QAPR    PICTURE    "999" 

a     10, 15    SAY     "MAY" 

a     10,19    GET    OKAY    IICTURE    "999" 

a     11,  15    SAY    "JUNE" 

a     11,20    GET    QJUN    PICTURE     "999" 

a     12,  15    SAY    "JULY" 

a     12,20    GET    QJUL    PICTURE    "999" 

a     13,  15    SAY    "AUGUSI" 

a     13,22    GET    QAUG    EICTURE    "999" 

a     14,15    SAY    "SEPTEMBER" 

a     14,25    GET    QSEP    EICTURE    "999" 

a     15,  15    SAY    "OCTOEER" 

a     15,23    GET    QCCT    PICTURE    "999" 

a     16,  15    SAY    "NOVEKEER" 

3    16,24    GET    QNOV    PICTURE     "999" 

a     17,  15    SAY    "EECEMEER" 

a     17,24    GET    QDSC    EICTURE     "999" 

REAE 

REIEASE    ALL    EXCEPT    Q??? 

SAVE    TO    ArBRNGQTAS 

REIEASE    ALL 

ERASE 

RESTORE    FROM    A:CRNGQTAS 

RESTOFE    FROM     UNITMEM    ADDITIVE 

a  3.15  SAY  "ENTER  RANGE  QUOTAS  AS  PROJECTED, 
FOR    TEE    YEAR," 

a    4,15    SAY    "FOR    UNIT:    " 

a    4, 25    SAY    THREECC 

a    6,15    SAY    "JANUARY" 

3    6,23    GET    QJAN    PICTURE    "999" 

a    7,15    SAY    "FEBRUARY" 

a    7,24    GET    QFEB    PICTURE    "995" 

a    8,15    SAY    ''MARCH" 

3    8,21    GET    OMAR    PICTURE    "995" 

a    9    15    SAY    "AERIL" 

a    9^21    GET    QAFR    PICTURE    "995" 

a     10,15    SAY    "MAY" 

3     10,19    GET    QMAY    PICTURE    "959" 

a    11,15    SAY    "JUNE" 

a     11,20    GET    QJUN    PICTURE    "959" 

a     12,15    SAY    "JULY" 

a     12,20    GET    QJUL    PICTURE    "959" 
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ALL 
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RE 
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ELACE 
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ELACE 

ELACE 

ELACE 
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ELACE 
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E 


ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 

AL 

ALL 

ALL 

ALL 

ALL 

ALL 

ALL 


PFT1CLSS 
PE12RAW  W 
PFT2DATE 
PFT2CLSS 
NBC  WITH 
MKS  WITE 
TAC  WITH 

RFISCORE 
RELCUAL  W 
RFIEATE  W 
PSISCORE 
PSTC.UAL  W 
PSTEATE  W 


WITH  "*" 
ITH  000 
WITH  "DDMMYY" 
WITH  "*" 
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ENEIE 
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RELEASE    ALL    EXCEPT    AA?????? 
RETURN 
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B.       SYSIIM    ACCESS    CONTEOL   ECDTINE 

*  Routine   Name:    Rstaccss.prg 

*  Module   Naire:    Maintenance    Module 

*  Version:    6.5. 3 

*  Author:    D.P.    Haeusler 

*  Date:    8   Feb   84 

*  Variables   Used:   thru,    ac*,    more,    lines,    done,    cont 

*  Variables   Modified:   same    as   above 

*  Variables   Created:    same   as   atove 

*  Variables   Released:      all 

*  Files    (opened/closed):   a:  security  (o/c) 

*  Temporary    Files  Created:    none 

*  Using    Subroutines:    System. prq 

*  Description:    This    routine    allows   users   with   an    access 

*  level   cf    1  to    update  the    access   list. 

STORE    F    10    THRU 
EO    WHILE    .NOT.     THRU 
ERASE 

2  8,28    SAY    "     SECURITY    ACCESS    LIST" 

3  S,28    SAY    "    CHOOSE    OFTICN    TO    BE    EXECUTED" 
3     11,24    SAY    "    L...LIST    ALL    USERS" 

3     12,24    SAY    "    A. ..ADD   TO    ACCESS    LIST" 

3     13,24    SAY    "    D...EELSTS    FECH    ACCESS    LIST" 

S     14,24    SAY    "    Q...CUIT    TC    SYSTEM    FUNCTION    MENU" 

ACCEPT    "  ENTER    OPTION    ===>"    TO    ACCOPT 

DC    CASE 

CASE     !  (ACCOPT)     =    "L" 

CSE   A:SECURITY    INDEX    A:ACCNAME 
BO    WHILE    .NCT.     EOF 
ERASE 

3    3,24    SAY    "    SECURITY    ACCESS    LIST" 
a    5, 1    SAY    "NAME  USER    NO. ; 

PASSWORD  LEVEL    " 

STORE    7    TC    LINES 

DO    WHILE    .NOT.     EOF     .AND.    LINES    <    22 
a    LINES, 1    SAY    NAME 
3    LINES, 20    SAY    OSERID 
a    LINES, 41    SAY    GSERPASS 
a    LINES, 56    SAY    AUTHLEV 
SKIP 

STORE     (LINES    ♦    2    )     TO    LINES 
IE    LINES    >    22 

a    23,15    SAY    ••***    PRESS    ANY    KEY    TO; 
CONTINUE    ***" 

SET    CONSOLE    CFF 
WAIT 

SET   CONSOLE    CN 
ENDIF 
END  DO 
EN  EDO 

a    23,15    SAY    "***    PRESS    ANY    KEY    TO    CONTINUE    ***" 
SET    CONSOLE    CFF 
WAIT 

SET    CONSOLE    CN 
USE 
CASE    !  (ACCOPT)     =    "A" 
STCRE    T    TO    KCRE 
DO    WHILE    MOBE 
ER  AS  E 

STORE    "  "    TO    ACNAME 

STORE    "  "   TC    ACCUSER 

STORE    "  "    TO    ACCPASS 

STORE    0    TC    ACCLEV 
a    10,25    SAY    "NAME    OF    USER" 

a    10,38    GET    ACNAME    PICTURE    "XXXXXXXXX XXXXXX " 
a    12,25    SAY    "USER    ID" 
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a    12,33    GET    ACCUSEF    PICTURE    "XXXXX" 

3    14,25    SAY    "PASSWORD" 

a)    14,34    GET    ACCEASS    PICTDRE    "XXXXXXXX" 

a)    16,25    SAY    "AUTHORIZATION    LEVEL" 

a)    16,45    GET    ACCLEV    PICTURE    "9" 

READ 

STORE  T  TC  NOGOCD 

DO  WHILE  NOGOOD 

IF  (ACCLEV  <  1)  .OR.  (ACCLEV  >  3) 

3  23,1  SAY  ('  ILLEGAL  AUTHORIZATION  LEVEL; 

REENTER" 

3     16,45    GET    ACCLEV    PICTURE    "9" 
REAL 

ELS  E 

STCRE    FTC    NCGOOD 

ENDIF 
ENDDC 

USE    A:SECURITY     INDEX    A:ACCNAMS,    A:SECINDX 
APPEND    BLANK 

REPLACE    NAME    WITH    !  (ACNAME),; 
AUTHLEV    KITH    ACCLEV 
REPLACE    DSERID     WITH    ! (ACCUSER),; 
USERPASS    WITH    !  (ACCPASS) 
USE 

STORE    F    TC    DONE 
DO    WHILE    .NOT.     EONE 

ERAS  E 

3  1 0T  25  SAY  "  DO  YOU  WANT  TO  ENTER  ANCTHER; 


USER?" 


ACCEPT    "  ENTER     (Y    OR    N    )     ===>"; 

TO   COET 

IF    !  (CCNT)     =    "Y" 


DELE1ED" 


STCFE    T   TC    ECNE 
ELS  E 

IF    !  (CONT)    =    "N" 

STORE    T    TO    DONE 
STORE    F    TC    MORE 
ENEIF 
ENDIF 
ENDDO 
ENDDO 
CASE     !  (ACCOPT)     =    "D" 
STCRE    T    TO    KCRE 
DC    WHILE    MOFE 
ERAS  E 
3    12,24    SAY    "    ENTER    NAME    OF    THE    USER    TO    EE ; 


FILE" 
CONTINUE    ***" 


3    13,24    SAY    "    OR    QUIT    TO    REENTER    ACCESS    MENU    " 
ACCEPT    "  NAME    ====>»    TO       ACNAME 

STORE    !  (ACNAME)     TO    ACNAME 
IF    ACNAME    ■    "QUIT" 

STORE    F    TC    MCRE 
ELSE 

USE    ArSECURITY    INDEX     A:ACCNAME,    A:SECINDX 

FIND    SACNAME 

IF    #    =    0 

a     22,28    SAY    "INDIVIDUAL    NOT    FOUND    IN; 


a     23,24    SAY    "***    PRESS    ANY    KEY    TO; 


SET    CONSOLE    OFF 
WAIT 

SSI    CONSOLE    ON 
ELSE 

DELETE 
ENDIF 
USE 
ENDIF 
USE    A:SECURITY    INDEX    A:ACCNAME,    A:SECINDX 
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PACK 
USE 
ENEDO 
CASE       !(ACCOPT)     =    "Q" 
STCRE    T    TO    THBU 
ENECASE 
ENDDC 

EELEASE    ALL    EXCEPT    AA?????? 
BETUEU 


231 


r~-\     ' 


201      ' 


Thesis 

P9464   Pruiett 

c.l         An  automated  indivi- 
dual training  record 
management  systems 
(Prototype)  United 
States  Marine  Corps. 


^jp 


